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ABSTRACT 


This  thesis  presents  a  computer  program,  CAESAR, 
for  IBM  XT/AT  or  compatible  computers  to  compute  the 
logistics  demands  of  a  new  system  in  terms  of  manpower 
and  supply. 

CAESAR,  (Computer  Aided  Evaluation  of  Supply  and 
support  on  All  Repair  levels),  uses  inputs  such  as 
weapon  system  distribution,  system  characteristic  data 
and  major  unit  data  to  provide  conclusions  about  the 
logistics  behavior  of  failing  weapon  systems. 

The  modelling  of  system  behavior  with  CAESAR  has 
several  advantages  over  the  empirical  approach.  It  can 
be  utilized  at  any  major  unit  level,  and  it  can  be  used 
to  simulate  repair  part  consumption  of  weapon  systems 
prior  to  their  introduction  into  the  Armed  Forces. 

CAESAR  is  not  an  optimizer.  Instead  it  is  an 
evaluator  to  be  used  to  assist  decision  making.  It 
facilitates  the  examination  of  various  logistics  trade 
offs.  Thus,  it  can  be.  a  valuable  tool  for  managers 
responsible  for  introducing  new  equipment  and  for 
defining  the  accompanying  support  network. 
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I.   THE  PROBLEM 

With  the  number  of  new  systems  that  are  introduced 
to  replace  outdated  or  worn-out  equipment  and  with 
increasing  monetary  constraints,  it  is  of  paramount 
interest  to  know  the  logistics  requirements  of  the  new 
systems  well  in  advance  of  actual  deployment.  Of 
specific  interest  are  manpower  requirements  on  the 
different  maintenance  levels  and  the  stock  requirements 
for  spare  parts  at  the  different  supply  levels. 

This  study  attempts  to  provide  the  decision  maker 
with  an  array  of  options  from  which  he  can  pick  the  one 
that  looks  favorable  both  as  a  reasonable  compromise 
between  combat  readiness  and  budget  constraints  and  as 
an  acceptable  choice  for  the  units  in  the  field. 

Obviously,  it  would  be  beyond  such  a  study  to 
guarantee  optimal  solutions  for  all  kinds  of  different 
situations.  This  thesis  will  not  consider  initial 
introduction  of  weapon  systems  or  surge  conditions 
brought  about  by  increased  usage  of  the  equipment. 
Thus,  the  problem  we  consider  involves  the  "sizing"  of 
the  logistics  network  for  routine  operations. 

For.  this  "steady  state"  case  the  output  will 
suggest   necessary,   required,   or   otherwise  pertinent 


data  to   plan  the   successful  build-up   of  an  efficient 
logistics  network. 

The  output  of  CAESAR  yields  the  following 
information: 

(1)  the  number  of  hours  spent  on  all  the  Jobs, 

(2)  the  manpower  required  to  accomplish  these  jobs  on 
the  different  levels, 

(3)  the  numbers  of  repair  parts  for  all  the  Jobs, 

(4)  recommended  supply  stocks  to  cover  the  demand. 
Further,  the   consumption   behavior   with  suggested 

stock  levels  will  be  analyzed. 

Failing  systems  are  modelled  as  customers  of  a 
queuing  network.  This  network  extends  through  several 
maintenance  levels.  Sensitivity  analysis  is  done  in 
terms  of  manpower  requirements.  The  sensitivity 
analysis  considers,  if  possible,  at  least  a  10  per  cent 
bandwidth  on  both  sides  of  an  initial  computed  value. 
All  possible  combinations  of  strengths  on  all  repair 
levels  within  these  bands  are  computed.  This  gives  the 
decision  maker  the  opportunity  to  compare  different 
scenarios  and  to  consider  different  trade-offs. 

Figure  1.1  demonstrates  the  simplified  structure 
within  the  supporting  organizations  and  the 
interactions  among  the  user  in  the  field  and  the 
supporting  organizations.  Assume  the  user,  depicted  by 
the  tank,  faces  a  failure  of  one  of  his  weapon  systems. 


10 


He  will  notify  his  organizational  maintenance  unit  and 
after  a  delay,  due  to  administrative  and  transpor- 
tational  times,  the  system  will  undergo  repair  by 
either  changing  the  component  that  failed  or  by 
repairing  this  component.  After  another  delay  the 
system  will  be  returned  to  the  user  and  will  be 
operational  again.  If  the  component  was  replaced,  it 
will  enter  the  next  level  repair  cycle  at  the  direct  / 
general  support  unit,  where  the  subcomponent  will  be 
replaced  or  repaired.  The  operational  component  is 
returned  to  the  organizational  maintenance  unit.  If 
further  repair  is  necessary,  the  subcomponent  is 
shipped  to  the  depot  /  industry  level  where  it  is 
finally  repaired.  It  will  then  be  shipped  back  to  the 
direct  /  general  maintenance  unit  to  wait  for  the  next 
exchange  cycle. 

Usually,  the  components  and  subcomponents  can  be 
used  again  after  repair.  Only  parts  have  to  be  provided 
through  the  supply  chain.  The  model  will  not  simulate 
total  loss  of  components  or  subcomponents  but  it  will 
provide  a  number  of  available  components  and  sub- 
components on  the  respective  maintenance  levels  for 
direct  exchange.  . 
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The  structures  of  the  underlying  maintenance  and 
supply  organizations  are  described  in  more  detail  in 
Chapter  C.2.  and  C.3. 


Figure  1.1   Support  Structure 
12 


II .   THE  THEORY 

A.   DEFINITIONS 

The  following  definitions  are  provided  to  make 
clear  the  terminology  used  in  this  thesis.  Refer  to 
Figure  2.1  for  a  graphical  depiction  of  a  weapon 
system. [Ref .  1] 

System  is  the  entity  of .all  replaceable  or  repairable 

components,  subcomponents   and  parts  that  make  up  the 

working  piece  of  equipment. 

Component  is  the  first  split-up  level   of  replaceable 

or  repairable  items  within  a  system. 

Subcomponent  is   any  item  below  the  component  level 

which  is  still  repairable. 

Parts  are  non-repairable  items  within  a  system, 

component  or  subcomponent. 

Refer  to  Figure  2.3  for  a  graphical  depiction  of 
the  underlying  maintenance  organization. 

Organizational  Maintenance  (Org  Mn)  is  the  first 

repair  level.   It  is  usually  performed  at  the 

battalion  level. 

Direct  Support/General  Support  (DS/GS)  is  the   next 

level  above  Org  Mn .  This  is  performed  at  the  brigade, 

division  or  corps  level  for  the   respective  supported 

un  its. 
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Depot  Maintenance  is  the  highest  level  of  main- 
tenance. It  is  usually  performed  by  the  military 
depot  organization  or  a  civilian  contractor. 


1eveT 
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System 


Component 


Component 


Subcomponent 


Subcomponent 


Subcomponent 


Subcomponent 


Subcomponent      Subcomponent       Subcomponent 


Part        Part        Part        Part        Part         Part         Part 


Figure    2.1      Tree    -    Structure    of    a   Weapon    System 

Assignments  of  repair  jobs  to  one  of  the  repair 
levels  is  done  on  the  basis  of  their  need-  for 
expertise,  special  tools,  amount  of  hours  necessary  for 
repair    or    severity    of   damage. 

It  may  be  possible  that  one  level  wil-1  be  skipped 
or  that  work  at  a  lower  level  is  performed  in 
connection  with  work  on  a  higher  level.  This  aspect 
will    be    disregarded    in    this    study. 


14 


Refer  to   Figure  2.4   for  a   graphical  depiction  of 
the  structure  of  the  underlying  supply  organization. 
Direct  Supply  Organization  (DSO)  is  the   supply  unit 
which  is   responsible  for  the  support  of  specific 
customers  within  the  major  unit. 

Back-up  Supply  Organization  (BSO)  is  a  supply  unit 
which  can   support  another  supply  unit  on  its  supply 
level . 

Initial  Demand  Generator  (IDG)  is  the  customer  of   a 
DSO  who  demands  service  from  the  DSO. 

Intermediate  Supply   Organization  (ISO)  is  any  supply 
unit  in  the  supply  channel  that  both  accepts   inputs 
of  spares   and  passes  on  output  of  spares  to  other 
ISOs  or  IDGs. 

End  Supply  Organization  (ESO)  is  the   facility  where 
all  orders   that  cannot  immediately  be  filled  or 
orders  of  restocks  for  ISO  are  centralized.  It   does 
not  move   physical  items;  it  coordinates  and  routes 
the  orders. 

Mean  Time  Between  Failures  (MTBF)  is  the  expected 
value  of   the  interarrival  time  of  failures  for  a 
working  system.  In  this  thesis  equipment   lifetimes 
are  assumed  to  be  exponentially  distributed. 
Mean  time   To  Repair  (MTTR)  is  the  expected  value  of 
the  time  required  to  repair  a  failed  equipment. 
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B.  ASSUMPTIONS 

1 .  Independence  of  Systems 

Systems  in  any  specific  major  unit  are  assumed 
to  be  independent  of  each  other. 

2 .  No  Non-lethal  Failures 

Each  item  is  assumed  equally  vital  for  the 
operation  of  the  system.  A  failure  in  any  part  will 
lead  to  a  failure  for  the  complete  system. 

3 .  Unlimited  Storage  -  Capabilities 

It  is  assumed  that  supply  units  can  store  any 
suggested  number  of  spare  parts.  For  the  first 
simulation,  unlimited  supplies  are  assumed. 

Later,  limited  numbers  of  spares  are 
considered . 

4 .  Hierarchical  Logistical  Structure 

The  underlying  logistical  system  is  assumed  to 
be  strictly  hierarchical.  There  is  no  horizontal 
substitution  for  maintenance  nor  vertical  substitution 
for  supplies  between  different  major  units  in  the 
model  . 

C.  THE  LOGISTICS  STRUCTURE 

1 .   System  Lay-out  Dependencies 

The  physical  configuration  of  any  new  system 
depends  on   many  different  parameters.  Cornerstones  for 
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the  design  are  the   tradeoffs   due   to   budget   and  the 
operability  and  system  availability  in  the  field. 

These  connections  between  the  various  aspects 
are  displayed  in  Figure  2.2.  If  enough  resources 
(budget)  are  available,  then  the  quantity  of  components 
for  a  new  system  can  be  optimized,  and  where  possible, 
the  idea  of  modular  system  layout  can  be  realized.  The 
number  of  servers  can  be  tailored  to  satisfy  maximum 
demand.  All  these  means  lead  to  a  reduction  in  system 
repairtime.  This  and  the  ability  to  subsidize  higher 
quality  material,  which  increases  the  time  until  a 
failure  occurs,  yields  less  stress  upon  the  logistics 
organization.  The  resulting  increase  in  system 
availability  is  clearly  in  favor  of  the  user  in  the 
field.  In  reality,  however,  different  users  formulate 
priorities  for  acquisitions  which  demand  resources. 
These  demands  have  to  be  met  as  well  as  possible.  Thus 
tradeoffs  between  optimality  and  feasibility  have  to  be 
made . 
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Figure  2.2   System  Interdependenc ies 
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2 .   Underlying  Maintenance  Organization 

As  stated  earlier,  the  maintenance  structure  is 
assumed  strictly  hierarchical.  Each  level  serves 
specified  jobs  for  specific  customers.  An  exchange  of 
capability  cannot  regularly  be  performed  between 
different  maintenance  units.  Figure  2.3  shows  this 
assumed  structure. 
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Figure  2.3   Schematic  Maintenance  Structure 
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In  the  example  depicted  in  Figure  2.3  it  is 
assumed  that  units  (customers)  C±  to  C8  perform  their 
own  organizational  maintenance.  In  case  of  a  failure 
that  requires  direct  support,  the  destination  of  the 
item  depends  on  the  type  of  customer  and  his  supporting 
unit . 

C±  is  supported  directly  (direct  support,  DS ) 
by  the  corps  unit.  C2,C3,C4  and  C^.Cy  are  units  which 
are  supported  by  their  respective  brigades.  C5  and  C8 
are  supported  by  their  divisional  units. 

In  case  of  an  overload  of  work  at  the  DS  level  , 
the  divisional  units  can  back  up  the  brigade  units,  and 
the  corps  can  back  up  the  divisions  (general  support, 
GS ) .  However,  this  is  only  possible  within  certain 
limitations.  The  model  does  not  allow  general  support. 
3 .   Underlying  Supply  System 

The  structure  assumed  for  the  supply  system  is 
similar  to  the  maintenance  system.  In  this  structure  it 
will  be  distinguished  between  Direct  Supply 
Organization  ( DSO )  ,  which  is  directly  responsible  for 
its  customers  and  back-up  Supply  Organization  (BSO), 
which  is,  within  limits,  capable  of  supplying  customers 
of  BSO  units,  if  they  are  not  immediately  able  to  serve 
their  customers.  The  initial  demand  generator  (IDG)  is 
the  customer  for  the  supply  system,  which  is  usually 
the  maintenance  unit. 
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Figure   2.4   shows   a   typical   structure  for  a 
supply  network. 
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Figure  2.4   Schematic  Structure  of  the  Supply  System 
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The  Supply  Command  supports  all  supply  units  on 
corps,  division  and  brigade  levels  in  a  parallel 
structure.  Since  the  customers  on  these  levels  are  all 
similarly  structured,  i.e.  have  the  same  equipment, 
type  and  density,  a  horizontal  back-up  (BSO)  on  the 
same  level  is  possible. 

Vertical  substitution  would  be  ineffective 
because  customers  at  different  levels  have  dissimilar 
equipment. 

The  Supply  Command  works  as  an  end  supply 
organization  (ESO)  since  its  job  is  it  to  provide  the 
intermediate  supply  organizations  (ISO)  with  the  needed 
items.  The  customers,  the  IDGs,  are  not  shown  in 
Figure  2.4. 

4 .   Cooperation  within  the  Logistics  Network 

A  user  reports  a  failure  of  a  system  to  his  own 
Org  Mn  activity.  At  the  same  time,  the  user  becomes  an 
IDG  for  the  supply  network  since  a  replacement 
component  or  part  must  be  provided.  If  there  is  stock 
available  at  the  Org  Mn  level,  and  if  maintenance 
capability  is  also  available,  the  customer  is  notified 
that  the  equipment  will  be  worked  on.  If  there  are  no 
spares  on  hand,  the  ISO  will  get  spares  for  the  IDG 
either  from  the  ESO  or  the  BSO. 

After  successful  repair  and  delivery  the  system 
will  be  operational  and  functional  and  the  first  repair 
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cycle  (see  Figure  1.1  )  is  complete.  The  Org  Mn  unit 
becomes  the  customer  for  the  DS  unit  with  the  broken 
component.  This  DS  unit  as  the  IDG  will  approach  its 
supply  unit  to  obtain  the  necessary  items  until  the 
second  repair  cycle  is  completed.  From  here  the  same 
procedure  continues  at  the  depot  level  with  its  supply 
channel  where  the  final  broken  item  will  be  exchanged 
or  repaired,  if  required.  On  either  level  the  repair 
has  been  finished  when  the  level  9  (non-  repairable) 
item  has  been  reached. 

Should  Org  Mn  not  have  enough  manpower 
available  then  repairs  might  be  passed  on  to  the  GS 
level.  GS  level  is  the  division  for  brigade  units  or 
the  corps  for  the  divisional  units. 

Although  the  time  for  immediate  repair  and 
return  of  the  system  to  its  normal  duty  is  of 
particular  interest,  it  is  further  important  to 
consider  the  whole  chain  of  repairs.  These  repairs  have 
an  impact  on  the  availability  of  spares  under  the 
assumption  of  limited  supplies  in  the  evaluation  later 
in  the  program  package. 

Replacements  have  to  be  ordered  for  the  parts, 
since  these  do  not  get  back  into  circulation  like 
components  or  subcomponents,  which  after  repair  regain 
their  place  on  the  shelves  of  the  maintenance  units. 
This   inventory   policy   can   be  on  a  one-by-one  basis, 
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regularly  according  to   fixed   time   intervals   or  upon 
reaching  a  minimum  number  of  stocked  items. 

In  this  study,  the  restocking  policy  will  be 
the  (s,S)  method.  It  will  be  explained  in  detail  later. 
The  number  of  restocked  spare  parts  depends  on  the 
length  of  the  chosen  time  interval  and  the  demand 
within  this  interval. 

D.   THE  COMPUTATIONAL  FORMULAE 

The  simulation  consists  of  two  parts.  First,  in  an 
idealized  run,  planning  figures  will  be  computed 
assuming  unlimited  resources  of  both  manpower  and  spare 
parts.  Thus  waiting  times  in  the  system  are  considered 
to  be  zero.  In  the  second  run  the  planning  figures  of 
the  idealized  run  are  used  and  the  actual  queuing 
behavior  with  limited  servers  and  spare  parts  is 
analyzed.  In  this  run  the  waiting  times  are  greater 
than  zero.  The  major  computational  formulas  used  in  the 
simulation  are  presented  in  the  following  paragraphs. 
1 .   Random  Number  Generation 

The  basis   for  all   the  random   numbers  used  in 
CAESAR  are  the  uniform(0,l)  random  numbers  [Ref.  2]. 

a.   Uniform  Random  Number 

To  transform  the  uniform(0,l)  random  number 
to  a  uniform( LL,UL )  number  the  following  algorithm  is 
used : 
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U(LL,UL)  =  LL  +  (UL-LL)  *  U(0,1). 

where 

LL  -  mean  -  SQRT[  3  *  ( std . dev .  )2] 
UL  -  mean  +  SQRT[  3  *  (std. dev.)2] 

b.  Exponential  Random  Number 

To  transform  the  uniform(0,l)  random  number 

to  an  exponential  random  number  the  following  algorithm 

is  used  [Ref.  3]  : 

EXP  -  -  (  1/lambda  )  *  In  [  U(0,1)  ] 

with 

EXP  exp.  distributed  random  variable 

lambda  ..  parameter  for  exp.  distr.  variable 

In  natural  lgarithm 

U(0,1)  ..  uniform(0,l)  random  number. 

where 

Lambda  -  1/mean 

c.  Gamma  Random  Number 

A   gamma   (Erlang)   random   number   with   n 
degrees  of   freedom   is   generated  -from   the  following 

algorithm  [Ref.  3]  : 

GAMMA  -  -  (  1/lambda  )  *  In  [  prod[  U(0,1)  ] 

n 

with 

GAMMA  . . .  Gamma  distributed  random  variable 

lambda  ..  parameter  for  Gamma  distr.  variable 

n  degrees  of  freedom 

In  natural  logarithm 

U(0,1)  ..  uniform(0,l)  random  number 
prod[  ]  ...  product  from  1  to  n  of  U(0,1). 
n 

where 

lambda  =  mean  /  (  std. dev.)2 
n       -  (  mean  /  std. dev.)2 
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d.   Normal  Random  Number 

To   obtain   a   normally   distributed  random 
number  a  Box  -  Mueller  algorithm  is  used  [Ref .  3]  : 

N-l  -  {SQRT(-2  *  lnCU^O,!.)])}  *  cos[2*pi  *U2  (  0  , 1  )  ] 
N2  -  <SQRT(-2  *  InCuiCO.l)])}  *  sin[2*pi*U2(0,l)] . 


with 

Ni.No  . 
SQRT(  ) 

In 

pi  

cos(  )  . 
sin(  )  . 


the  normally  distributed  r.n. 

square  root  of  the  argument  ( ) 

natural  logarithm 

3.141592654 

trigonometric  cosine  function 

trigonometric  sine  function. 


This  algorithm  produces  two  independent 
normally! 0 , 1 )  distributed  random  numbers.  To  use  one  of 
them  randomly,  another  Monte  Carlo  trial  is  performed. 
A  U(0,1)  random  number  is  drawn,  and  depending  on  that 
outcome  either  N^  or  N2  is  chosen. 

The  norm(0,l)  random  numbers   are  converted 

to  norm(mu, sigma )  numbers  as  follows: 

N(mu, sigma)  =  mu  +  N(0,1)  *  sigma 

with 

mu  ....  desired  mean  of  the  norm,  distr.  r.n. 
sigma  .  standard  deviation  of  the  r.n. 

e.   Lognormal  Random  Number 

For    the     lognormal    distribution    the 

following  computation  is  made  [Ref.  4]  : 
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L(mu, sigma)  =  exp[N(mun , sigman ) ] 

with 

L[   ....  desired  lognormal  random  number 

N[]  ....  a  normally  distributed  random  number 

mu  desired  mean  of  the  lognormal  r.n. 

mu„  ....  mean  of  the  normal  random  number 

.  std.dev.  of  the  lognormal  r.n. 


ln  • 
sigma 


where 
mu 


sigman  .  the  std.dev.  of  the  normal  r.n. 

=  exp(mun  +  1/2  sigman2) 

sigma    =  SQRT[exp(2  mu+2  sigman2)- 

-exp( 2Mmu+sigman2 )] 

mun     =■=  2  log(mu)  -  1/2  log(mu2  +  sigma2 ) 

sigman  =  SQRT[log( sigma2  +  mu2 )  -  2  log(mu) 

2.   System  Mean  Time  Between  Failure  (MTBFg-n-c,-i-OTn ) 

Suppose  a   system  is   made  up   of  n  components. 

Let  Lambda^   be  the  failure  rate  for  component  i.  Let  T 

be  the  time  to  failure  for   the  system.   Let  T^   be  the 

time  to  failure  of  component-^. 

Then,   the    probability   of   the   lifetime   of 

component^  being  greater  than  t  is 

-  Lambda^  *  t 
P{T1>t>  -  e  for  all  i. 

For  the  .system  lifetime  T  the  following  holds: 


P{T>t>  =  P<min(T1,T2, • • • ,Tk)>t> 

-  P<T1>t,T2>t Tk>t> 

-Lambda-L*t   -Lambda2*t 
=  e  e 


-Lambda^Ht 


-( Lambdai+Lambda2+. • • +Lambdak ) *t 
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Thus  the  system  time  to  failure  is  exponential 
with  parameter  Lambda-L+Lambda2  +  ...  +Lambdan.  The  mean 
time  to  failure  for  the  system  is 

1 -   1 

Lambdai+. . .+Lambdan  1       +    ...    +         1 


,^-t- .  .  .tLaiuuuan 


MTBF-l  MTBFn 
Let  us  now  determine  the  probability,  that  a 
system  failure  is  due  to  component  i.  Let  us  consider 
the  case  in  which  the  system  has  only  two  components. 
The  probability,  that  the  first  system  failure  is  due 
to  component  1  is  given  by  P{T-l<T2}. 
Conditioning  we  get  [Ref .  5]  : 

«o 

/-Lambda2    *    t 
P<TKT2|  T2=t>    *    Lambda2    *    e  dt 

0 


CO 

-Lambda2    *    t 
t>    *    Lambda2    *    e  dt 

0 


Jp{T1< 


r        -Lambda^Ht  -Lambda2*t 

J(l-e  )  "Lambda?    »    e  dt 

"0  * 


OO 


/-Lambda2    *    t 
Lambda2    *    e  dt    - 

0  «o 

f  -( Lambda1+Lambda2 )t 
-    Lambda2    *  Je  dt 

0     ' 

■  1  -     Lambdag 

Lambda1+Lambda2 

Lambda-^ 


Lambda^+Lambda2 
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Because  of  the  loss  of  memory  property  of  the 
exponential  the  probability  of  any  system  failure  being 
due  to  component  1  is  the  same, 

Lambda^ 


Lambda-L+Lambda2 

This  can  be  extended  to  the   general  case   of  n 

components    in    a    straight    forward    manner.   The 

probability  that  the  failure  is  due  to  component  i  is  : 

P(Xi<Xk)  -     Lambda-; 

Sum( Lambda^ ) 

-      l/MTBFt 
Sum(l/MTBF^7 

for  i  -  1 ,2, . . . ,n 

k  -  1,2, ... ,1-1,1+1, .. .n. 

Example : 

Suppose,  a  system  consists  of  three  parts  X^,X2  and  X3. 

The  respective  mean  times  to  failure  (MTTF)  are: 

MTTF-l  -  1000  hrs 
MTTF2  -  500  hrs 
MTTF3  =   500  hrs. 

Then  the  expected  MTTF  for  the  system  is 

MTTFSvstem  =  1 

J  1/1000  +  1/500  +  1/500 

=    1 
5/1000 

=  200  hrs. 
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The  probability  the  failure  is  caused  by  item  2  is 
P{X2<X1,X3>  -   Lambda. 


Lambda^ +Lambda2+Lambda3 

=   1/500 
5/1000 

-  0.40 

If  a   component  J  fails  it  is  due  to  failure  of 

one  of  its  subcomponents.  In  the   same  way   computed  as 

above ,  the   MTBF  for  the  component  depends  on  the  MTBFs 

of  its  subcomponents. 

MTBFcomD   =         1 ^ 

Sum(l/MTBFsubc. ) 

and  the  conditional  probability  of  a   component  failure 

being  the  result  of  subcomponent  J  is 

PCcomp.^  fails|  subcomp.-j  fails)  =    1/MTBF-j 

Sum(l/MTBFyy 

This   continues   until   the  part  level  has  been 

reached . 

3 .   Total  System  Downtime 

The  time  it  takes  to  repair  the  system   and  get 

it   back   into   service   consists  of  several  individual 

steps.  First,  the  failure  has   to   be   reported   to  the 

next   level   maintenance   facility.   This  facility  will 

fill  out   a   work   order   and   inspect   the   system  for 

damage.  This  time  period  will  be  called  "administrative 

time  delay"  ( TA ) . 
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Furthermore  the  system  has  to  be  shipped  to  the 
facility  and  back.  The  time  for  one-way  transportation 
will  be  called  "transportational  time  delay"  (TT).  Both 
delays  are  regarded  as  random  variables.  Then  the 
system  enters  the  repair  queue  and  waits  for  an 
available  server.  This  time  will  be  called  waiting  time 
(WT).  When  a  server  is  available  the  system  enters 
repair.  The  repair  time  is  RT. 

The  total  system  downtime  will  be: 

DOWNTIMESystem  =  TA0rg  Mn+( 2*TT0rg  Mn )+RTComp • +w? 

Similarly,  the  downtime   for   a   component  will 
be : 

DOWNTIMEComp.  =  TADS/GS+(2-TTDS/GS)+RTSubcomp.+WT 
and  the  downtime  for  a  subcomponent: 

DOWNTIMESubC4  -  TA+2*TT+RT+WT 
(indices    depend    on    the    next   level   maintenance 
facility) . 
The  following  variables  have  to  be  known: 

-  TA 

-  TT 

-  RT 

for  each  maintenance  level . 

For  the  idealized  run,  the  WT ' s  are  assumed  to  be  zero. 
4 .   The  Queuing  System 

In  reality  a  system  cannot  expect  to  be  served 
as  soon  as  it  fails  and  is  inspected.  A  server  at  the 
maintenance  facility  has  to  be  available  and  all  needed 
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spare  parts  must  be  available.  Otherwise,  the  customer 
has  to  wait  for  the  next  available  server  or  for  the 
arrival  of  the  necessary  parts. 

Service  times  are  assumed  to  be  independent  of 
each  other,  and  are  distributed  according  to  a  user 
specified  distribution.  The  service  policy  is  FCFS1 . 
The  number  of  servers  at  a  repair  facility  is  k.  The 
customer  will  always  be  served  by  the  next  available 
server . 

If  a  spare  part  is  not  immediately  available, 
the  customer  has  to  wait  even  to  get  into  the  server 
queue.  These  waiting  times  have  to  be  accounted  for. 
Therefore  the  total  downtime  of  the  system  is: 

DO¥NTIMESys=WTparts+WTlabor+TA0rgMn+( 2^TT0rgMn )+RTSys 
with 

¥Tpar-(-s       ....  waiting  time  for  spare 
parts 

WTlabor    ....  waiting  time  for  service. 

5 .   Failure  Generation 

The  system  lifetime  is  computed  from  all  the 
component  lifetimes  (MTBF).  The  lifetimes  of  the 
components  are  assumed  to  be  exponentially  distributed. 

For  purposes-  of  saving  memory  and  to  be  able  to 
capture  the  feature  that  other  components  of  a  failed 
system  do  not  fail  while  the  system  is  shutdown,  we 
generate  system  failures  in  accordance  with   the  system 


1FCFS  -  First  Come  First  Served 
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failure  distribution.  Given  the  system  failed,  we  then 
determine  the  component  which  failed  by  a  uniform  draw. 
In  the  same  way,  subcomponent  failures  and  part 
failures  are  determined  by  the  Monte  Carlo  method  of 
drawing  uniformly  distributed  random  numbers  and 
comparing  these  to  a  table  of  cumulative  probabilities, 
which  has  previously  been  generated. 
Example : 

Let   the   system   consist  .  of   three  items  with  failure 
rates 

Lambda-L  -  1/1000  hrs 

Lambda2  -  1/500  hrs 

Lambda3  =-  1/500  hrs. 
Then  the  probability  of  a  system  failure  due   to  item  1 
is  0.2,  due  to  item  2  is  0.4  and  due  to  item  3  is  0.4. 
The  cumulative  table  would  look  like  this 

0.00000  ...  0.20000     item  1 

0.20001  ...  0.60000     item  2 

0.60001  ...  1.00000     item  3. 
Now  a  uniform(0,l)  random  number  is  drawn.  Suppose  this 
number  was  0.6775.  Thus  the  failing  item  would   be  item 
3,  because   0.6775  lies  between  0.60001  and  1.0000,  the 
range  for  item  3. 

Using  the  same  procedure  would  lead  from  the 
failing  component  to  the  failing  subcomponent  and 
finally  the  part,  that  caused  the  system  to  fail. 
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6 .   Restocking  Policy 

Since  the  program  QBEHAVE  analyses  the  behavior 
of  the  spare  part  stock  levels, a  restocking  policy  has 
to  be  defined. 

We  considered  three  common  restocking  policies: 

-  Restock  on  a  one-for-one  basis. 

Whenever  an   item  is  consumed,  a  substitute  is 
immediately     ordered  and  after  a   processing  and 
shipping  delay   it  fills    the  empty  spot  in  the 
warehouse.  Problems  may  be  caused  by   shortcomings 
due  to  limited  stocks  and  delays  in  the  shipment. 

-  Restock  after  fixed  time  periods. 

After  given  time  intervals  a  fixed  number  of  items 
is  shipped  to  replace  the  consumed  items.  Surpluses 
are  possible  with  this  method. 

-  Restock  at  the  critical  inventory  level. 

This  method   is  widely  used.  It  combines  the  advan- 
tages of  being  able  to  satisfy  most  of   the  demand 
with  the   stock  on  hand  with  the  smaller  number  of 
restocking  transactions.  Whenever  the   stock  level 
reaches  the   refill  level,  the  difference  between 
this  refill  level  and  the  stock   maximum  is  ordered 
and  shipped   after  delays.  The  problem  is  to  keep 
the  minimum  level  high  enough  to  avoid  stockout  and 
low  enough   not  to  generate  too  large  a  holding 
cost . 

In  this  simulation  the  third  method,  restocking 
at  the  critical  lower  levels,  is  used.  This  method  is 
also  known  as  the  (s,S)  -  method,  where  s  denotes  the 
lower  and  S  the  upper  limit. 

S  is  taken  to  be  the  average  demand  during  the 
four  week  planning  period  computed  by  program  ESTIMATE. 
The  value  s  is  computed  so  as  to  satisfy  a  specified 
stockout  risk. 
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The  stockout  risk  factor  r  is  the  probability 
of  running  out  of  stock  while  the  replacement  is 
ordered  and  shipped  to  the  consuming  facility.  This 
delay  for  generating  the  order  and  for  receiving  it  is 
called  leadtime. 

With    exponential    times    to    failure    the 

distribution   of   the   number   of   failures    during   a 

leadtime  L   is  POISSON   with  parameter  (Lambda  *  L).  We 

therefore  compute  the   stock   level   s   by   finding  the 

smallest  s  such  that 

P[Xi  >  s]  <-  r, 

where  X±    is  POISSON( Lambdaj/L) . 

To  find  s  from  this,  compute 

PCX-l  <-  s]  >-  1  -  r 

For  s-0:  probability  p(0)  -  exp(-Lambda^  *  L) 

8-1:  p(l)  -  (Lambda-^L)  *  p(0) 

1 

s-2:  p(2)  -  (Lambda1**L)  *  p(l)   etc. 

2 

Compute  p(k)   recursively  until   the  sum  of  the 

cumulative  probabilities 

p(0)+p(l)+p(2)+. . .+p(k)  >-  1-r. 
The  value  for  s  is  then  k. 
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E.g.    Lambda-t    =    1/30,    L    =    5,    r    =    0.10 

k    =    0:       p(0)    =    expC-Lambda-L    *    L)    -    exp(-5/30)    -    0.8465 

k    -    1:       p(l)    =    (Lambdaj/L)    *    p(0) 

1 

-  0.1667  *  0.8465  =  0.1411 
1 

[p(0)  +  p(l)  -  0.9875]  >  [1  -  r  -  1  -  0.1  -  0.9] 

That  implies  s  =  1. 
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III.    THE  REALIZATION 

A.   DETERMINATION  OF  THE  OUTPUT  DATA 

Before  the  simulation  could  be  realized,  the 
decision  variables  for  the  desired  output  data  had  to 
be  determined.  It  seemed  to  be  reasonable  that  the 
needed  data  would  consist  at  least  of  information 
about : 

-  the  number   of  maintenance  personnel  on  each  level 
of  maintenance 

-  the  number  of  spare  parts  to  be  provided   for  each 
supply  level 

-  the  use   of  the  provided  capabilities  in  terms  of 
manpower  and  spare  parts 

-  the  total  expected  cost  for  the  system. 

These  data  should  be  based  on  a  planning  period.  This 
period  should  not  be  too  short,  because  that  would 
unneccessarily  extend  the  duration  of  program  runs,  and 
not  too  long,  because  the  the  resulting  data  would  be 
unreal.  A  period  of  four  weeks  seemed  to  be  adequate 
for  planning  purposes. 

B.   STANDARDIZATION  OF  THE  INPUT  DATA 

Due  to   the  large  volume,  the  input  data  are  stored 
in  files.  To  improve  access  times,  the  data  are  written 
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into   random   access   files   with   linked  lists  used  to 
navigate  through  the  files. 

This  program  is  written  for  military  use;  knowledge 
about  the  military  organization  of  major  units  is 
assumed.  Appendix  C  displays  all  used  tactical  signs 
used  in  this  thesis. 

1 .   Major  Unit  Structural  Data 

To  be   able  to   extract  the  distribution  of  the 

system   in   question   out   of   the   desired   major  unit 

(brigade,   division   and/or   corps),   the   structure  of 

these  major  units  has  to  be  known  and  standardized.  The 

program  TACMIX   gives  the   user  the   interface  to  enter 

the  required  data.  Once  the  program  is  loaded,  the  user 

is  prompted  to  chose  among  four  options2: 

Create  New  Organization  (1) 

View  Existing  Organization  (2) 

Modify  Existing  Organization  (3) 

Terminate  Program  -(9) 

If  the   user  chooses   option  (1)   he  will  see  a 

screen  with  tactical  signs  of  the   following  major  unit 

types: 

Corps 

Armored  Division 

Mechanized  Infantry  Division 

Infantry  Division 

Airborne  Division 

Air  Assault  Division 

Mountaineer  Division 

Armored  Brigade 

Mechanized  Infantry  Brigade 


2see  Appendix  A.l. 
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Infantry  Brigade 
Airborne  Brigade 
Mountaineer  Brigade 
Combat  Aviation  Brigade 
Signal  Brigade 
Air  Cavalry  Combat  Brigade. 

After  the  decision  for  one  major  unit  type,  all 
unit  types,  regiments .battalions , companies ,  which  may 
be  possible  under  this  major  unit  will  be  displayed. 
The  user  chooses  the  units,  their  number  and  creates 
the  structure  of  the  major  unit.  The  newly  created  file 
will  overwrite  any  existing  file  for  this  major  unit. 

Selection  of  option  (2)  will  display  the 
contents  of  the  chosen  unit  type  file  in  graphical 
form:  the  tactical  signs  for  the  units  in  the  major 
unit  and  the  number  of  each  of  these  units. 

Selection  of  option  (3)  will  also  display  the 
contents  of  the  major  unit  file.  In  addition,  it  allows 
the  user  to  implement  modifications  into  the  file.  The 
new  file  overwrites  the  previous  one. 

For  each  of  the  above  major  units  there  exists 
a  file  in  the  program  package  in  accordance  with 
reference  1 . 

2 .   Distribution  of  Systems 

Next,  the  user  calls  the  program  INMILDAT  for 
entry  of  the  number  of  the  systems  into  the  military 
structure.  The  program  displays  all  types  of  units  from 
regiment   to   company   and   prompts   for   the  number  of 
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systems  in  the  respective  unit.  Another  prompt  will 
have  the  user  check  the  correctness  of  the  entry.  After 
all  units  have  been  displayed  the  program  will  ask  for 
reserve  in  either  percentage  or  absolute  numbers. 
Program  ESTIMATE  will  use  this  number  to  find  the  total 
number  of  systems  within  a  corps.  ESTIMAT  will  give  the 
amount  of  systems  in  the  major  units  below  the  corps 
level  and  also  the  reserve  if  one  exists. 

At  the  end  of  the  program  INMILDAT  it  will 
prompt  the  user  to  enter  a  data  file  name  for  the  data 
just  created  and  write  the  data  sequentially  into  this 
file.  If  no  name  is  entered  the  default  file  name 
"DISTRIBN"  will  be  used. 

3 .   System  Structural  Data 

Before  the  user  can  enter  the  system  data,  they 
have  to  be  available  in  the  format  necessary  for  these 
inputs . 

The  following  information  will  be  entered3: 

Item  Type  -  to  be  able  to  answer  this  prompt,  the 
system  must  be  broken  down  such  that  the  structure  is 
similar  to  the  one  shown  in  Figure  1.  A  part,   a  non 
repairable  item,   will  always  require  a  9,  even  if  it 
is  directly  under  the  system  level  l,a  component  will 
always  be  a  2,  and  the  subcomponents  have  to  be  clas- 
sified from  3  to  8  depending  on  their  level  within 
the  system. 

National  Stock  Number  -  this  is  the  NATO  standardized 
stock  number  in  the  format: 

AAAA-BB-CCC-DDDD. 


3see  Appendix  A. 3. 
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All  the   groups  of  letters  stand  for  numbers.  In  this 
program  it  will  be  assumed  that  the  country  code  (BB) 
is  the   same  throughout  the  system.  If  the  country 
code  is  omitted,  the  stock  number  can  be  written  as: 

AAAADDDD.CCC 

and  can  be  used  as  a  unique  item  file  name. 

Item  Description  -  this  is  the  name  of  the  item 

How  many  of  these  Items  -  this  is  not  the  overall 
total  but   rather  the  number  within  the  next  level 
item.  If  subcomponent  A  appears  x  times  in  the  system 
but  y  times  in  component  B,  then  enter  y  here. 

Unit  Price  in  US  Dollars  -  self-explanatory 

MTBF4  (assumed)   in  Days  -  this  information  should  be 
provided  by  the  manufacturer  of  the  item.  If   there 
are  no   data  available,  an  estimate  of  this  number  is 
necessary.  Fractions  of  hours  can  be  entered. 

Replacement  Level  -  this  is  the  maintenance  level 
where  the  failed  item  is  replaced. 

Repair  Level   -  this  is  the  maintenance  level  where 
the  replaced  item  will  be  repaired. 

MTTR5  in  hours  -  enter  here  the  repair  time  provided 
by  the  manufacturer.  If  no  data  are  available,  enter 
an  estimate  based  on  similar  items. 

After  entering  all   data,   a   summary   of  these 

data  will  be  displayed.  The  user  has  to  acknowledge  the 

correctness  of  the  input.  If  they  are  correct   the  user 

will  be   asked  if  there  are  more  items  to  be  entered. 

When  the  last  item  has  been  entered,  they   will  be 

written  onto   the  disk   into  a   random  access  file  with 

its • transformed  stock  number   name  in   the  case   of  the 


4MTBF  -  Mean  Time  Between  Failures 
5MTTR  =  Mean  Time  To  Repair 
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system.   In   all   other   cases   the   name   will   be  the 
transformed  stock  number  of  the  next  higher  level  item. 

C.   PERFORM  IDEALIZED  EVALUATION  RUN 

1 .   Macro  -  Flowchart  Program  ESTIMATE 

The  basic  structure  and  sequence  of 
computations  of  the  program  ESTIMATE  starts  with  an 
initialization  part  including  reading  default  data  and 
string  variables  from  the. memory  and  prompting  the  user 
for  additional  information  necessary  for  the  simulation 
(see  Figure  2.5).  It  computes  the  system  lifetime  from 
the  component  data  and  requires  the  choice  of  major 
unit,  for  which  the  simulation  will  be  run.  Finally,  a 
failure  time  is  drawn  for  each  of  the  systems  in  the 
major  unit  using  the  system  lifetime.  These  failure 
times  are  sorted. 

The  sequence  of  steps  depicted  in  Figure  2.6  is 
repeated  for  as  many  times  as  failures  have  to  be 
generated.  For  the  next  failing  system  the  failing 
component,  subcomponent ( s )  and  part  are  determined  by 
the  randomization  procedure  described  in  Chapter  II.  A 
repair  time  is  drawn  from  the  selected  distribution  and 
the  total  downtime  for  the  system  (ignoring  any  queuing 
waiting  times)  is  computed.  For  this  system  the  time  to 
the  next  failure  T  is  then  determined  and  merged  with 
the  failure  times  of  the  other  systems. 
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Once  all  the  failures  have  been  simulated  and 
stored  in  the  data  files,  the  output  is  generated  for 
each  maintenance  level.  Some  additional  statistical 
data  about  the  simulation  are  provided  on  the  last 
output  page  (see  Figure  2.7). 
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Figure  2.5   Initialization  Phase  of  Program  ESTIMATE 


43 


9 

Generate 
Failure  Part 

Generate 
HI 

Compute  total 

IX)  wn  tine 

Draw  neu    I 
.and.  sort 

Update 
Data  Files 

0 
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Figure  2.7  Output  of  Program  ESTIMATE 
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2.   Detailed  Look  at  Program  ESTIMATE 

ESTIMATE  takes  the  data  in  the  item  files  and 
the  military  structure  files  and  computes  planning 
figures  for  the  desired  output  information.  Since  the 
amount  of  data  is  so  huge,  the  data  are  kept  in 
auxiliary  random  access  files  during  the  program  run. 
This  allows  rapid  access  to  the  data  without  cluttering 
the  computer's  memory. 

In  the  introductory  phase  of  the  program, 
default  values  and  strings  are  read  into  variables.  Old 
auxiliary  files  are  deleted  and  the  random  number 
generator  is  seeded  with  the  DOS  day/time  group  to 
achieve  real  randomness.  The  user  then  enters  the 
number  of  failures  to  be  generated. 

The  user  also  has   to   enter   the  distributions 

for  administrative   and  transportation  delay  times.  The 

first   input   screen^   requires    the    entry    of   the 

maintenance  level   after  which  the  type  of  distribution 

and  its  parameters  must  be  entered. 

Choices  for  the  distributions  and  parameters  are: 

Uniform  Parameters:  lower,  upper  limit 

Normal  Parameters:  mean,  standard  deviation 

Exponential  Parameter  :  mean 

Gamma  Parameters:  mean,  degrees  of  freedom 

Lognormal  Parameters:  mean,  standard  deviation 

Fixed  Parameter  :  mean. 


^see  Appendix  C.4. 
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If  the  user  is  uncertain  about  the  parameter 
choice,  default  values  are  provided  for  each  distri- 
bution. Both,  the  distributions  and  the  parameters  for 
each  maintenance  level  are  printed^. 

After  input  of  the  system  stock  number,  the 
program  computes  the  overall  system  failure  rate 
lambdaSyStem  from  all  the  individual  failure  rates  of 
the  components,  subcomponents  and  parts. 

The  next  step  is.  to  find  the  distribution  of 
the  systems  in  the  corps.  The  program  takes  the  entries 
in  the  system  distribution  file  created  with  the 
program  INMILDAT  and  compares  them  with  the  military 
structure  data  created  by  the  program  TACMIX .  The 
output  will  be  a  list  of  the  major  units  in  the  corps 
with  the  respective  number  of  systems®.  This  list  will 
be  displayed  on  the  screen  and  printed  together  with 
the  user's  choice  of  major  unit  within  the  corps. 

The  program  will  compute  one  individual  failure 
time  for  each  of  the  systems  in  the  major  unit.  The 
program  will  generate  an  exponentially  distributed 
random  number  with  parameter  lambdagyStem  for  each 
system  and  then  order  these  failure  times. 

After  having  obtained  all  failure  times  the 
program   will   determine   which   component   caused  each 


7see  Appendix  B.l.a. 
®see  Appendix  B.l.b. 
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failure.  It  does  this  as  described  in  chapter  II.  The 
same  procedure  is  used  to  determine  the  failed 
subcomponent  and  part.  As  soon  as  the  failed  part  is 
determined,  all  information  (times,  costs,  etc.)  about 
the  chain  of  failed  items  within  the  system  up  to  this 
part  have  been  stored  in  auxiliary  files. 

Starting  from  the  time  of  failure  (FTIME),  the 
program  computes  an  idealized  repair  cycle  for  this 
system.  It  assumes  that  there  are  unlimited  resources 
in  spare  parts  and  manpower  available. 

The  time  at  which  the  system  is  operational 
again  and  back  at  its  location,  is  computed  as  follows: 

UPTIME  -  FTIME+2*TT+TA+MTTR 


with  FTIME  . . .  time  system  fails 

TT  transportation  delay  time 

TA  administrative  delay  time 

MTTR  ....  mean  time  to  repair. 


The  program  will  always  serve  the  next  failing 
system  until  the  desired  number  of  failures  have 
occurred . 

3.   Output  Program  ESTIMATE 

The  output  of  the  idealized  run  performed  in 
the  program  ESTIMATE  consists  of  information  about  the 
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manpower   requirements   for   each  maintenance  level  and 
the  spare  part  stocking  levels9. 

The  output  consists  of  at  least  six  pages.  The 
first  two  pages  provide  data  about  manpower  require- 
ments and  the  consumed  spare  parts.  The  last  page  gives 
additional  information  about  the  simulation  itself  and 
the  costs  involved  for  the  systems. 

Page  1  of  the  output  gives  the  number  of 
failures,  a  listing  of  the  distributions  and  parameters 
for  the  transportation  and  administrative  delay  times 
and  the  repair  time  distribution.  These  data  were 
entered  by  the  user  in  the  initialization  phase  of 
ESTIMATE. 

Page  2  of  the  output  gives  the  distribution  of 
the  systems  within  the  major  units  of  the  corps.  It 
also  provides  information  about  the  number  of  systems 
on  reserve  and  the  total  number  of  systems  in  the 
corps . 

Pages  3  to  5  give  the  summaries  for  manpower 
and  spare  part  consumption  for  the  three  maintenance 
levels.  The  header  shows  the  number  of  simulation 
replications.  Next  is  a  list  of  consumed  items  on  each 
respective  level.  Provided  are  the  national  stock 
numbers,  the  item  descriptions  and  the  total  number  of 
units  consumed. 


9see  Appendix  A. 4 
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The  manpower  data  show  the  total  number  of 
manhours  spent  on  the  given  number  of  simulations.  This 
total  time  is  converted  to  an  average  time  within  a 
four  week  planning  period.  Based  on  this  number  the 
average  number  of  repairmen  for  this  level  is  shown. 

Page  6  gives  additional  information  about  the 
simulation.  It  lists  the  total  time  for  the  simulation 
in  weeks  and  the  number  of  four  week  periods. 

It  also  provides  system  data.  The  average 
system  downtime  and  the  average  system  availability 
during  the  simulation  are  provided. 

For  the  costs  of  the  new  systems  the  output 
shows  the  average  maintenance  cost  per  system  (only 
parts  are  consumed),  the  initial  acquisition  costs  for 
introducing  the  new  system  plus  one  four  week  spare 
part  package  into  the  given  major  unit  and  finally  the 
cost  for  an  additional  average  four  week  supply  of 
spare  parts. 

D.   RERUN  THE  SIMULATION  WITH  QUEUING 

1 .   Macro  -  Flowchart  Program  QBEHAVE 

The  data  processing  in  the  program  QBEHAVE 
starts  with  a  reading  of  parameters  generated  in 
program  ESTIMATE.  Then,  for  each  system,  the  first 
failure  time  is  read.  Taking  transportation  and 
administrative   delays   into   account,  the  times  of  the 

50 


actual  arrival  at  the  maintenance  facility  are  computed 
and  sorted.  Then  the  program  simulates  the  repair  at 
the  Org  Mn  level  by  checking  the  availability  of 
servers . 

To  keep  track  of  the  times  the  servers  are 
busy,  the  program  uses  two  pointers  for  each  server. 
One  for  the  earliest  time  the  server  starts  service 
(intime)  and  the  second  for  the  earliest  time  at  which 
the  server  will  be  available  (outtime).  As  soon  as  a 
customer  (weapon  system)  enters  the  queuing  system 
(entertime),  the  next  available  outtime  is  found.  If 
the  outtime  is  less  or  equal  the  entertime,  the 
customer  is  immediately  served.  Otherwise  the  diffe- 
rence between  the  minimum  of  the  outtimes  and  the 
entertime  is  the  waiting  time  for  this  customer .  The 
outtime  pointer  for  the  selected  server  is  set  to  the 
value  {intime  +  repair  time).  Thus  an  entering  customer 
always  gets  to  see  the  first  available  server  and  the 
time  at  which  service  will  be  complete  is  determined 
when  each  customer  arrives.  Levels  DS/GS  and  Depot  are 
handled  in  the  same  way.  The  stock  levels  for  each 
spare  part  at  all  levels  are  computed  and  printed. 

This  simulation  is.  run  with  the  numbers  of 
servers  equal  to  the  numbers  suggested  by  the  program 
ESTIMATE  or  for  each  of  these  numbers  within  +/-  10  % 
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of  that   figure  (unless   not  feasible,  i.e.  number  <=  0 
or  percentage  busy  <  10  #). 

Figure  2.8  shows  the  initialization  and  the 
first  repair  level  (Org  Mn )  within  the  sensitivity- 
analysis  loop. 
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Figure  2.8  Repair  Level  OrgMn  in  Program  QBEHAVE 
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Figure   2.9   shows   the  other  two  repair  levels 
(DS/GS  and  Depot)  within  the  sensitivity  analysis  loop. 
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Figure  2.9  Repair  Levels  DS/GS  and  Depot  in  QBEHAVE 
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Figure  2.10  shows  the  computation  of  spare  part 
consumption  within  the  sensitivity  analysis  loop. 
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Figure  2.10  Spare  Part  Consumption  in  QBEHAVE 


54 


2 .   Detailed  Look  at  Program  QBEHAVE 

QBEHAVE  gives  a  more  realistic  view  of  the 
behavior  of  the  systems  in  terms  of  downtimes  than  does 
the  program  ESTIMATE,  which  provides  the  data  for 
QBEHAVE.  QBEHAVE  takes  the  ordered  failure  times  of  the 
systems  and  adds  to  these  numbers  one  half  of  the 
administrative  delay  time,  assuming  that  this  delay 
occurs  equally  at  the  beginning  and  at  the  end  of 
processing  a  workorder .  One  transportational  delay  time 
is  also  added.  The  ordered  numbers  are  used  to 
determine  the  entry  time  for  the  system  into  service. 
The  customer  with  the  earliest  failure  does  not 
necessarily  have  to  be  the  first  one  to  be  served.  It 
might  take  him  longer  to  get  to  the  server  or  the 
administrative  delay  might  be  longer. 

The  service  policy  is  FCFS.  The  algorithm 
checks  for  the  next  available  server  and  if  a  server  is 
free,  the  customer  entry  time  plus  the  MTTR  result  in 
the  customer  departure  time.  To  this  time  the  remaining 
half  of  the  administrative  delay  and  another  transpor- 
tational delay  time  is  added  to  obtain  the  time  the 
customer  is  operational  again.  The  time  the  customer 
leaves  the  server  is  also  used  as  the  failure  time  of 
the  customer  for  the  next  level  of  maintenance,  where 
the  replaced  item  itself  will  now  be  repaired. 
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These  computations  continue  until  the  part 
level  is  reached  and  no  further  repairs  will  be 
performed. 

The  calculations  on  the  next  level  can  only  be 
performed  after  the  previous  level  is  completely 
computed,  since  the  times  the  customer  leaves  the 
previous  level  have  to  be  converted  to  arrival  times  at 
the  next  level.  They  then  have  to  be  sorted  to  obtain 
the  proper  sequence  of  service. 
3.   Output  Program  QBEHAVE 

The  output  of  QBEHAVE  offers  information  about 
the  manpower  requirements  for  each  of  the  maintenance 
levels  and  the  spare  part  consumption1^.  Because  this 
phase  of  the  simulation  is  not  an  idealized  run  such  as 
was  the  case  with  the  program  ESTIMATE,  queuing  waiting 
time  data  are  also  available. 

The  number  of  output  pages  is  always  a  multiple 
of  two.  A  set  of  output  for  each  combination  of  servers 
consists  of  two  consecutive  pages  -  one  for  the 
manpower  and  the  other  for  the  spare  part  data.  The 
total  number  of  output  pages  depends  on  the  program 
mode.  If  the  sensitivity  analysis  is  to  be  performed, 
then  the  number  of  pages  depends  on  the  number  of 
different  cases  considered  in  the  sensitivity  analysis. 
For  this  mode  the  first   set   shows   the   data   for  the 


10see  Appendix  A. 5 

56 


combination  of  smallest  server  numbers  on  all  repair 
levels.  The  next  set  usually  shows  the  results  for  an 
increased  number  of  servers  on  the  Org  Mn  level  unless 
the  upper  limit  is  reached  or  the  percentage  of  time 
server  1  is  busy  is  less  than  10  per  cent. 

When  all  possible  numbers  of  servers  on  the  Org 
Mn  have  been  tried,  the  number  of  servers  on  the  DS/GS 
level  is  increased,  the  number  of  servers  on  the  Org  Mn 
level  is  reset  to  its  lowest  value  and  the  computations 
start  over  again. 

After  all  possible  combinations  of  servers  on 
Org  Mn  level  and  DS/GS  level  have  been  accounted  for, 
then  the  number  of  servers  on  the  Depot  level  is 
increased.  The  program  terminates  when  all  combinations 
of  server  numbers  on  all  three  levels  have  been  tried. 
For  each  combination  the  spare  part  consumption  is 
collected  through  all  three  levels  and  printed.  The 
results  are  shown  on  the  second  page  of  the  output  set. 
Each  combination  of  server  numbers  produces  one  set  of 
output . 

The  first  page  of  each  output  set  shows  the 
statistics  for  the  maintenance  queues  on  the  various 
levels.  On  the  Org  Mn  level  the  number  of  customers 
(systems  .  in  the  major  unit)  and  the  number  of 
simulations  are  provided.  For  the  other  levels  these 
numbers  do  not  change. 
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The  output  then  shows  the  number  of  servers 
available  for  each  maintenance  level.  The  total  number 
of  delays,  the  total  waiting  time  and  the  maximum 
number  of  customers  waiting  are  provided.  Also  provided 
are  the  average  waiting  times  per  customer,  (given  the 
customer  waited),  and  the  expected  average  waiting  for 
any  customer  entering  the  queuing  system.  Also  shown  is 
the  percentage  of  time  each  server  was  busy.  Finally, 
statistics  about  the  simulation,  like  total  elapsed 
time  and  the  number  of  four  week  periods  are  given. 

The  second  page  offers  a  summary  of  stock 
behavior  for  all  consumed  items,  repairable  or  not. 
Initial  and  final  stock  levels  within  the  simulation 
period  are  shown.  The  last  column  shows  the  minimum 
stock  number,  where  negative  values  represent 
stockouts . 
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IV.   LIMITATIONS 

To  keep  the  size  of  the  different  programs  and  the 
amount  of  generated  and  accessed  data  manageable,  a  few 
limitations  were  built  into  the  programs. 

The  number  of  iterations  (trials)  is  restricted  to 
1000.  Numbers  close  to  1000  cause  excessive  execution 
time  for  the  program.  The  number  of  systems  handled  is 
resticted  to  500.  The  total  number  of  different  compo- 
nents, subcomponents  and  parts  is  limited  to  1000.  The 
number  of  each  individual  part  is  not  restricted.  If  a 
larger  number  of  items  is  required,  then  the  system  has 
to  be  divided,  and  the  simulation  has  to  be  run  for  for 
the  different  parts  of  the  system.  These  partial 
results  can  then  be  added  together  to  obtain  the 
numbers  for  the  system  as  a  whole.  The  number  of  items 
under  any  other  higher  level  item  is  limited  to  99.  The 
item  price  must  not  be  greater  than  $  99999.99  (of 
course,  one  can  express  costs  in  tens,  hundreds  and 
thousands  of  dollars  to  avoid  this  problem. 

The  maximum  number  of  repairmen  on  each  of  the 
three  maintenance  levels  is  restricted  to  50.  It  would 
be  unreasonable   to  assign  more  people  to  one  system. 

The  systems  are  strictly  structured  as  serial 
systems . 
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V.    SUMMARY  AND  CONCLUSIONS 

The  output  of  the  program  ESTIMATE  yields  the 
average  numbers  of  repairmen  per  maintenance  level  for 
a  four  week  period  and  the  total  number  of  spare  parts 
for  the  whole  simulation.  Although  these  numbers  are 
computed  assuming  no  queuing  they  are  useful  for 
planning  figures.  The  values  are  input  to  QBEHAVE  which 
simulates  more  realistic  behavior. 

For  a  quick  overview  of  the  expected  requirements 
and  to  obtain  ballpark  figures  a  run  of  ESTIMATE  will 
likely  yield  reasonable  numbers.  For  a  more  detailed 
view  the  user  has  to  run  QBEHAVE  and  select  a  suitable 
solution  out  of  the  array  offered.  When  interpreting 
the  output  of  QBEHAVE,  the  user  should  not  only  take 
the  waiting  times  for  the  customers  into  consideration, 
but  also  observe  the  proportion  of  time  the  various 
servers  are  busy.  Changes  on  a  lower  level  directly 
Influence  the  behavior  on  the  higher  levels.  These  must 
be  taken  into  account  when  raising  the  number  of 
repairmen. 

CAESAR  is  capable  of  generating  valuable 
predictions  for  both  the  maintenance  and  the  supply 
organization  by  bringing  a  multitude  of  aspects  into 
the  consideration  of  the  responsible  manager. 
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CAESAR  presents  a  broad  spectrum  of  options  for  the 
deployment  of  manpower  and  supplies  within  the 
hierarchical  logistics  structure.  CAESAR  will  not  make 
the  decisions  for  the  manager.  But  CAESAR  will  make  the 
decision  process  easier  and  the  alternatives  more  transparent. 
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APPENDIX  A 

SAMPLE  RUN 

In   all    sample   runs   of   CAESAR'S   programs   the 

following  conventions  are  used: 

a  message  from  the  computer  will  always  "be  denoted 
in  lower  and  upper  case  letters  with  an  (M)  at  the 
beginning  of  the  message, 

an  input   for  the  computer  will  always  be  denoted 
in  upper  case  letters  with  an  (I)  at  the  beginning 
of  the  input, 

<enter>  means  to  press  the  ENTER  key  after  typing 
the  input 

any  comments  will  be  denoted  (C). 

1.   Program  TACMIX 

TACMIX  is  the  graphic  interface  for  CAESAR  to 
provide  the  input  of  major  unit  structures.  The  program 
will  present  all  units  and  major  units  with  their 
respective  tactical  signs.  If  the  number  of  units  of 
any  type  is  greater  than  1,  then  an  index  outside  the 
lower  right  corner  of  the  symbol  will  indicate  this 
numb  e  r . 

If  you  intend  to  create  or  modify  a  major  unit,  and 
you  want  to  keep  the  old  data,  make  a  copy  of  the  data 
file  for  this  major  unit.  To  do  this  you  enter  from  DOS 

OCOPY  OLDNAME  NEWNAME  (enter) 
using  the  old  and  the  new  name  for  the  data  file. 

E.g.  to  copy  BRIG16  into  a  back  up  file  called  BR16 
you  enter 
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C>  COPY  BRIG16  BR16  <enter>. 

There  will  be  a  new  file  named  BR16  containing  the 
same  data  as  BRIG16.  Now  you  can  modify  BRIG16  in  any 
way  you  like. 

To   retrieve   the   data   after  you  are  done,  simply 
copy  the  contents  of  BR16  back  into  BRIG16,  typing 
OCOPY  BR16  BRIG16  <enter>. 

To  start  TACMIX ,  type  at  the  DOS  prompt: 
OTACMIX  <enter> 
(M) 


MKMKXXMXIOtXJOIXaOODOiXXXXMXX 

»**  Pr*o&raL*t    TACMIX  *»«* 

MMH  Ojrt  ici ns  «  ****** 

IMBHHHHHHHMMBHHHHHHHMHHHHHI 

—  Create    Mew    Oir-sramiza-t  icm     CI) 

—  Miow     E?«:  icrfc  i  TW*f     Org-nn  iz-pticm      ....  C2 ) 

—  Modify    ExistiiKj    Organ i zat i on     .  .  C3) 

—  Tern  inat-e    Prosrraim     C9) 

Ervter    Number-    of    Clio  ice     : 


(C)  Let  us  create  a  new  organization  for  major  unit  11 
( I  )  1  <enter  > 
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(M) 


lis    <=>    ^K   1X1   1X1 


I 


ggl   \c=>    1X1  ixs 


11 


is 


16 


17 


enter  Majop  unit  code  nimlwp    : 


12 


13 


19 


14 


( I )    11    <enter > 
(M) 


(C)  We  will  only  browse  through  the  tactical  signs 
( I  )  <enter  > 
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(M) 


CSD 


B3 


44 

__ 


45 


C  ) 


46 


39 


31 


32 


r~v 


X 

X 

47 

48 

1  1 

C 

) 

S»    *£> 

S3 

34 

J> 

* 

c     • 

56  57  58  59 

enter  unit  code  number  (ENTER  for  next  frame)  ; 


68 


49 

ii 

33 

61 


( I  )    <enter > 
(M) 


" 

62 

1 1 

> 

< 

68 

^ 

TXT 


63 

LL 


:> — c 


69 


•-• 

MI 

(4 

ll 

65 

ii 

sw 

70 

71 

74  75  76  77 

enter  unit  code  number  (ENTER  for  next  frane)  : 


66 

ii 


72 


78 


— -y— 

36 


67 


®      MP 


73 


TT 


79 


( I  )    <enter  > 


65 


(M) 


FEps 

88 

Sj* 

86 

M  P 

I — I — I 


81 


^ 


87 


rxr 


cr 

— r~ 

-i; 

82 

> 

^ 

w 

) 

_*-^ 

88 

'      -^ 

(^ 

; 

■> 

i — r 


83 


89 


MI 


182  183  184  185 

enter  unit  code  lumber  (ENTER  fop  next  frame)    ; 


1 1 


84 


186 


Spfc, 


85 


181 


D — c 


187 


( I  )    <enter > 
(M) 


188 


114 

#9 


189 


113 


118 


116 


^7 


in 


117 


£ 


( 

112 

7*^ 

118 

Cr- 

i     \ ) 

113 


119 


128  121  122  123 

enter  unit  code  number  (ENTER  for  next  frame)  : 


124 


I 1 1 


126 


( I )  (enter > 

(C)  Let  us  use  option  2  (view  existing  organization)  to 
take  a  close  look  at  major  unit  14. 


66 


( I  )    2    <enter > 
(M) 


mc       m  tut 


» 


C ' 


CS3  CS3  CSI 


i 


11 


CS] 


IS  16 


17 


•  nt»r    lajop    unit    cod*    numJa*r    : 


C__> 


12 


^J 


19 


^fcZ^aJ         L^s^-^V^. 


13 


14 


( I  )    14    (enter > 
(M) 


( I  )    (enter) 
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(C)  This  brings  you  "back  to  the  menu  screen 
(M) 


MKXXXXXXXXXXilKHMXXKXXXXXXX 

xxx    Program  TACMIX    «*» 
Op  t  ions; : 


—  Create  Mew  Ox-ga-niza-t  ion  CI) 

—  Uiew  Existing  Or*g«n  iaiat  ic»r»  ,  .  ,  .  C2> 

—  Modify  Existing  Organization  .  .  C3> 

—  Term  i  nate  Program  C9 ) 

En-tex*  Number  o£  Choice  • 


(C)  Let   us  use  option  3  (modify  existing  organization) 

and  modify  major  unit  12. 
(I)  3  (enter) 
(M) 
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(I)    12    <enter> 
(M) 


< > 


12 


■5: 

_u_ 

•^ 

c 

><; 

) 

> 

V 

44 

Cr 

-r- 

-ij 

ii 

C^ 

> 

51 

> 

^3 


53 


c 

ii 

• 

) 

59 

Z 

"8s 

\ 

119 


124 


139 


148  141 

Any  Modifications  ? 


(i)  y 

(C)  change  the  number  of  units  type  51  from  2  to  3 
(M)  Which  Modification  ?(0=erase,  l=change  number  of 

units,  2=add  a  unit) 

(1)1  - 

(M)  Which  Unit  Number  ? 

( I  )  51  (enter) 

(M)  Enter  new  number  of  units 

( I  )  3  <enter> 
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(M) 


c 

.  *< 

Xm> 

'Sy. 

44 

Cr 

T-O 

124 


c 

> 

51 

>— 

< 

139 


c > 

12 


52 


59 


148         141 
Any  Modifications  ? 


119 


(I)  n 

(C)  Now  we  are  back  in  the  main  menu 

(C)  Let  us  change  the  number  back  to  2 

(M) 


MXMKKXXXXXXXMKMXMXXXXXXilXX 

*****         PirogifaM    TACMIX  *««* 

******  Op~t  icms Z  #•***# 

-  Create    Mew    Oar^raTiizwt  ion     .......  CD 

-  Uiew    Existing    OrgauizatioH     ,  .  .  .  C2> 

-  Modify    Exis-tirkcf    Oraar^izeition     .  .C3) 


—    Term  i  nate    Pir»ogry aw 

Ervter    Number    of    Clio  ice 


C9) 


( I  )    3    (enter > 
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(M) 


oo 


I 


t        > 


CxD 


*■-"""    A   "~"-v 


c       a 


S3 


11  12  13  14 


CS1 


re 


15  16  17  19 


tnt»p    «ijar    unit    cod»    nuaiwr 


^ 


(I)    12    <enter> 
(M) 


Op 


44 


i 


>. .- 


124 


c 

> 

51 

1 

- 

c           a 

12 

V           J 

52 

1 — i 

C3P 
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139  148  141 

Any  Modifications  ? 


I   * 
C ) 


119 


(I)  y 


71 


(M 

(I 
(M 

(I 
(M 

(I 
(M 


Which  Modification  

1  (enter) 

Which  Unit  Number  ? 

51  (enter) 

Enter    new   number    of   units 

2  (enter) 


Sw 

■""7 

c   > 

>^ 

\ 

44 

Cr 

t— i; 

124 


51 


c — ) 


12 


52 


D — C 


139 


59 


%N 


-   148  141 

Any  Modifications  ? 


< > 


119 


( I  )  n  (enter  > 

(C)  We  are  now  in  the  main  menu.  Let  us  abort  the 

program. 
( I  )  9  (enter  > 

This  input  brings  us  back  to  DOS. 
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2.   Program  INMILDAT 

INMILDAT  is  the  graphical  interface  for  CAESAR  to 
provide  the  input  of  the  distribution  of  the  new 
systems  within  the  corps.  The  program  will  represent 
all  units  and  major  units  with  their  respective 
standardized  tactical  signs.  Below  each  tactical  sign 
is  displayed  the  name  of  the  unit. 

To  start  INMILDAT  type  from  the  DOS  prompt: 
(I)  C>INMILDAT  <enter> 
(M) 


1   1   1 

/    X    X    X 

s 

(         y 

\*J- — -— ^ 

y      c'^  5 

ANTI  AIRCRAFT  DEFENCE  REGIMENT 


how  Many  systems  ? 


(I)  30  <enter> 

(C)  The  program  will  successively  display  all  unit 
types  and   ask  for  the  number  of  systems  in  this 
unit  until  it  reaches  the  last  stored  unit  image 
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(M) 


FIEL*  AIBPOBT 


another  entry  ?  | 


(C)  no  systems  in  this  unit  type 

(I)  <enter> 

(M) 


To  save  Data,  nam  File. 
Default  File  Nam  is  DISTRIBN 

To  accept  Default  press  ENTER  op  enter  File  Nam 


(C)  enter  a  name  of  your  choice 

(I )  TESTFILE  (enter) 

(C)  That  is  the  end  of  INMILDAT 
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3.   Program  INSYSDAT 

INSYSDAT  is   the  interface   for  CAESAR  to  enter  the 
relevant  data  about  the  new  systems. 
To  start  the  program  type  from  the  DOS  prompt: 
(C)  Let  us  enter  a  component  called  TEST  ITEM  for   the 
system  with  the  stock  number  1234-12-999-0000. 


(I 
(M 
3. 

(I 
(M 

(I 
(M 

(I 
(M 

(I 
(M 

(I 
(M 

(I 
(M 

(I 
(M 
(C 
(I 


C> INSYSDAT  <enter> 

Item   Type(  l=System,   2=Component , 
8=Subcomponent ,  9=Part  ) 
2  <enter> 

National  Stock  Number: 
1234-12-140-0000  <enter> 

Belongs  to  what  item  (next  level  stock  number): 
1234-12-999-0000  <enter> 

National  Stock  Number:  1234-12-140-0000 
Item  Description  : 
Test  Item  (enter) 
How  many  of  these  Items: 
5  (enter) 

Unit  Price  in  US  Dollars  :$ 
253.98  (enter) 
MTBF  (  assumed  )  in  Days: 
120  (enter) 

Replacement  Level  ( 2=0rg  MN, 3=DS/GS , 4=Depot ) : 
assume  replacement  on  ORG  MN  level 
2(enter  > 
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(M)  Repair  Level  (0=no,2  =  0rg  MN , 3=DS/GS , 4=Depot  )  : 

(C)  assume  repair  on  DS/GS  level 

(I)  3  <enter> 

(M)  MTTR  (Repair/Replace)  in  Hours  : 

(C)  fractions  are  possible;  (  e.g.  for  200  minutes 

enter  3.3) 

( I )  3.3  (enter) 
(M) 


Type 

:  Component 

National  Stock  Number  • 

:  1234-12-148-8880 

Item  Description 

!  Test  Item 

Unit  Price  in  US  Dollars 

:$    253.98 

Number  of  items 

5 

MTBF  (  assumed  ) 

120  days 

Replacement  Level         ! 

'  Organ.  Ma  intai  nance 

Repair  Level 

Direct  /  General  Support 

MTTR  (replace) 

3.3  hours 

*■*■**■*■*•*■    jt,n tries  corr€ 

2CX  f  {.yfTi)              ***«;***  f 

( I )  y  (enter > 

(M)  another  entry  ? 

(C)  For  this  sample  run  another  entry  is  not  necessary. 

( I  )  n  (enter  > 

This  input  "brings  us  back  to  DOS. 

4 .   Program  ESTIMATE 

ESTIMATE  is  the  first  of  two  simulation  programs  in 
CAESAR  to   compute   the   requirements   of   the  system's 
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logistics  support  organization.  To   start  ESTIMATE  type 
from  the  DOS  prompt: 


(I 
(M 


( <=1000) : 


(C 

(I 
(M 
(M 
(C 
(C 

(I 
(M 


OESTIMATE  (enter). 
Enter    total   number    of   failures   to   simulate 


let  us  chose  50  for  this  sample  run 

50  (enter) 

adjust  paper  in  printer 

press  a  key  to  continue 

make  sure  you  start  with  a  new  page  on  your  printer 

and  the  printer  is  switched  on  and  online. 

(enter) 


Enter  desired  value  for  the  standard  deviation  of 
the  delay  distributions  in  per  cant  of  the  nean 

the  default  value  is  10  per  cent 
to  accept  press  ENTER,  else  type  percentage 


(C)    to    use    the    default    value    of    10    %    press    ENTER   key 
( I  )    (enter > 
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(M) 


Enter  required  inforaation  about  the  transportation  tines  (one  way); 

-  on  the  user  /  org  waint.  level   (  1  ) 
-on  the    BS  /  SS    level  (2) 

-  on  the  Depot  /  Industry  level  (  3  ) 


no  aore  entries 


(  9  ) 


(C)  enter  for  level  Org  Mn 

( I  )  1  <enter > 

(M) 


transportation  tines  (one  way) 
Enter  desired  distribution  for  the  time  delays? 


unif  orn 

( 

I 

) 

normal 

< 

2 

> 

exponential 

< 

3 

) 

Ganma 

< 

4 

) 

log normal 

< 

5 

) 

fixed 

( 

b 

) 

default  distribution  is  NOBHAL 
to  accept  default  pros©  ENTER  else  type  number 


(C)  accept  normal  distribution  as  default 
( I  )  (enter > 


78 


(M) 


transportation  tines  (one  way) 

On  the  user  /  org  *aint.  level,  enter  for  the  noraal  distribution 

the  average  (wean)  value  in  hour3 
the  default  value  is:  3 

to  accept  default  press  EATER  else  type  value 


(C)  accept  default 

( I )  (enter > 

(C)  back  to  the  transportation  delay  level  menu 

(M) 


Enter  required  information  about  the  transportation  tiies  (one  uay): 

-  on  the  user  *  org  naint,  level      (  1  ) 

-  on  the         DS  /  SS         level     (  2  ) 

-  on  the  Depot  /  Industry    level     (  3  ) 


no  iwre  entries  (  9  ) 


(C)    for    DS/GS    level 
(1)2    <ENTER> 
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(C)  now  the  same  prompts  as  for  the  Org  Mn  level 

(M)  . . .  distribution  . . . 

( I  )  (enter > 

(M)  . . .  default  value  . . . 

( I  )  <enter  > 

(C)  hack  to  the  transportation  delay  menu 

(C)  for  Depot  level  enter 

( I  )  3  <enter > 

(C)  now  the  same  prompts  as  for  the  Org  Mn  level 

(M)  . . .  distribution  . . . 

( I  )  <enter  > 

(M)  . . .  default  value  . . . 

( I  )  (enter > 

(C)  back  to  the  transportation  delay  menu 

(C)  no  more  entries  here 

( I  )  9  (enter > 

(M) 


Enter  required  information  about  the  adnin  tine  delays: 

-  on  the  user  /  org  naint.  level   (  i  ) 

-  on  the    DS  /  GS    level   (  2  ) 

-  on  the  Depot  /   Industry  level   (  3  ) 


no  nore  entries       (  9  ) 
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(C)  for  the  Org  Mn  level  enter 

( I  )  1  <enter > 

(M) 


adnin  tine  delays 
Enter  desired  distribution  for  the  tine  delays 


unif orra 

(   1   ) 

rwrwal 

(  2  ) 

exponential 

(  3  ) 

Garaa 

(  4  ) 

lcgnornal 

<  5  ) 

f  ixed 

<  6  ) 

default  distribution   is  NOHHAL 
to  accept   default   press   ENTER  else   type   nunber 


(C)    let    us    change    this    distribution    to    exponential 

(I)    3    <enter> 

(M) 


adnin  tine 

delays 

3n 

the 

tser  t  org  waint. 

Jevel, 

ester  for  the  exponential  distribution 

• 

the  average 
the  le/auli 

(r*an) 
uaiue 

wthe  in  hour* 
la:  4 

to  accept  default  press  BITEH  else  type  value 
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(C)  accept  default  value  and  press 

( I )  (enter > 

(C)  now  do  the  same  for  the  other  two  levels 

(M)  Enter  required  . . . 

( I )  2  (enter) 

(M)  . . .  distribution  . . . 

(I)  3  <enter> 

(M)  . . .  default  value  . . . 

( I  )  <enter> 

(M)  Enter  required  . . . 

( I  )  3  (enter > 

(M)  . . .  distribution  . . . 

(I)  3  (enter) 

(M)  . . .  default  value  . . . 

( I  )  (enter) 

(M)  Enter  required  ... 

(C)  you  are  finished  with  this  part 

( I  )  9  (enter) 

(C)  you  now  choose  the  repair  time  distribution 
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(M) 


Enter  desired  distribution  for  the  repair  ti«e) 


uniforn 

(  1  ) 

nomal 

(  2  ) 

exponential 

(  3  ) 

bdflVtd 

(  4  ) 

logiiorrwl 

(  5  ) 

fixed 

(  &  ) 

the  default  distribution  is  LOGNORKAL 


to  accept  press  ENTER,  else  type  number 


(C)    use    default    distribution    lognormal 

(I)    <enter> 

(M) 


Enter  desired  value  for  the  standard  deviation 
the  default  value  is  18  per  cent  of  the  aeaa 

to  accept  press  EHTER,  else  type  percentage 


(C)    accept    default    value 
( I  )    <enter  > 
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(M 
(C 

(I 
(M 
(C 

(I 
(M 
(C 

(I 
(M 
(M 


Enter  number  of  workhours  per  day 

for  an  average  of  9  hours  per  day 

9  (enter) 

Enter  number  of  workdays  per  week 

for  an  average  of  5  days  per  week 

5  (enter) 

Enter    system    stock    number    (e.g.     1234-12-123-1234) 

use    the    CAESAR    sample    file 

1234-12-100-0000    (enter) 

Compute    Lambda    for    overall    system 


Systen  Dislocation  within  flajor  Units 

Input  filenane  for  systen  distribution  file 
Default  filenane  is  DISTfllBfl 


To  accept  default  press  EM7EB  or  enter  nane 


(C)    use    the    default    filename 
(  I  )    (enter  > 
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(M) 


S3 

Menu  :   CHOICE 

OF  HAJOR  UNIT 

T¥PE 

== 

as 

CuatofMsr 

tt  systems 

selection 

-  == 

=  = 

MECH.  BRIG 

C  98  ) 

1 

== 

—  ~ 

ARM'D  BRIG 

<  98  ) 

2 

=;  = 

—  - 

nOUHT.BRIG 

<  38  ) 

:  3 

—  — 

=  = 

HECH.  Diy 

<  395  ) 

4 

=  = 

SS 

DIU.  UMITS 

<  125  ) 

5 

=  = 

s= 

AJttl'D.  DIU 

<  395  ) 

6 

== 

=  = 

DIM.  UHITS 

<  125  ) 

7 

=  = 

=  = 

CORPS 

C  139B  ) 

:  8 

=  = 

sss 

CORPS  UHITS 

<  285  ) 

9 

== 

=  = 

Reserve 

<  194  ) 

18 

ss 

Enter  choice  • 

(C)  the  number  of  failures  is  50.  Therefore  pick  a 

major  unit  with  less  than  50  systems. 
( I  )  3  (enter > 

(C)  this  was  the  last  input  for  ESTIMATE. 
(C)  ESTIMATE  generates  various  messages. 
(C)  Display  when  the  MTBFs  are  drawn: 
(M)  Failure  Time  Generation 

(C)  The  next  message  is  updated  for  each  simulation 
(M)  . .  th  Iteration  for  Simulation 

(C)  within  each  simulation  this  message  is  displayed 
(M)  Subroutine  Summation  of  consumed  Items 
(C)  the  last  message  will  be: 
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(M)  Elapsed  Time  for  50  Simulations  :  xxx  Weeks 
(M)  PROGRAM  END 

The  program   has  terminated   correctly.  We  are  back 
in  the  DOS  environment. 

The  following  six  pages   demonstrate  the   output  of 
ESTIMATE  with  the  data  we  just  entered: 

-  parameters  for  delay  distributions 

-  distribution  of  system  within  the  corps 

-  summary  of  items  and  manhours  on  Org  Mn  level 

-  summary  of  items  and  manhours  on  DS/GS  level 

-  summary  of  items  and  manhours  on  Depot  level 

-  additional  statistics 
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PAGE   1 
Number  of  Failures  to  be  generated  :   50 

Distributions  and  Parameters  for  Transportat ional 
and  Administrative  Delays 


transportation  delays  -  level   user  /  org  maint. 

distribution  normal 
Mean   =    3.000     Sigma  =    0.300 

transportation  delays  -  level        DS  /  GS 

distribution  normal 
Mean   =    7.000     Sigma  =    0.700 

transportation  delays  -  level   Depot  /  Industry 

distribution  normal 
Mean   =   16.000     Sigma  =    1.600 

administrative  delays  -  level   user  /  org  maint. 

distribution  exponential 
Lambda=    0.250 

administrative  delays  -  level        DS  /  GS 

distribution  exponential 
Lambda=    0.  167 

administrative  delays  -  level   Depot  /  Industry 

distribution  exponential 
Lambda=    0.  125 
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PAGE 


Dislocation  of  overload  protector   within  Corps 


Major  Unit 

#  of 

systems 

MECH.  BRIG 

90 

ARM' D  BRIG 

90 

MOUNT. BRIG 

30 

MECH.  DIV 

395 

DIV.  UNITS 

125 

ARM'D.  DIV 

395 

DIV.  UNITS 

125 

CORPS 

1390 

CORPS  UNITS 

205 

Reserve 

104 

Total  1494 


choice  :  3   MOUNT. BRIG 
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PAGE 


Summary  of  Items  and  Manhours  for  50  Simulations 


For  Level  :0rg.  Maintenance 


stock  number  Item  Description  #  used 

1234-12-130-0000  battery  back-up  27 

1234-12-131-0000  charging  unit  27 

1234-12-110-0000  case  complete  13 

1234-12-100-0001  wall  mount  4 

1234-12-120-0000  carrybag  6 

1234-12-121-0000  bag  6 


total  consumed  manhours  on  this  level        :     427.33   hrs 


average  manhrs  within  4  weeks  on  this  level  :     140.22   hrs 


average  rounded  number  of  mainten.  personal  :   1  repairman 
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PAGE   4 


For  Level  : DS/GS  Maintenance 


stock 

number 

Item  Description 

#  used 

1234-12- 

-131-0002 

fuse  110V/2mA 

10 

1234-12- 

-112-0000 

monitor  panel 

8 

1234-12- 

-112-1000 

function  board 

6 

1234-12- 

-131-0003 

fuse  12V/. 5A 

12 

1234-12- 

-131-0001 

capacitor  20V/. lmu 

5 

1234-12- 

-121-0003 

button 

5 

1234-12- 

-112-0002 

lamp  mount 

2 

1234-12- 

-113-0000 

processing  unit 

5 

1234-12- 

-113-0003 

output  converter 

2 

1234-12- 

-121-0002 

cotton  bag 

1 

1234-12- 

113-0002 

data  processor 

3 

total  consumed  manhours  on  this  level 


196.76   hrs 


average  manhrs  within  4  weeks  on  this  level 


64.57   hrs 


average  rounded  number  of  mainten.  personal 


1    repairman 
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PAGE   5 


For  Level  : Depot  Maintenance 


stock  number       Item  Description  #  used 

1234-12-112-1003     relais  5 

1234-12-112-1002     transformer  1 


total  consumed  manhours  on  this  level        :      19.45   hrs 


average  manhrs  within  4  weeks  on  this  level  :       6.38   hrs 


average  rounded  number  of  mainten.  personal  :   1  repairman 
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PAGE   6 


Additional  Statistics 


total  elapsed  time  for    50  simulations  :        12.19  weeks 


total  number  of  4  week  periods  for    50  simulations  :    3.05 


average  system  down  time     :      3.05  Days 


average  system  availability  :  95.00  per  cent 


average  maintenance  cost  per  system  :  $40.90 


initial  system  cost  for  MOUNT. BRIG:       $40766.00 
(systems  and  spare  parts  for  4  weeks) 


cost  of  additional  4  week  supplies    :         $402.63 
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5 .   Program  QBEHAVE 

QBEHAVE  is  the  second  of  the  two  simulation 
programs  in  CAESAR  that  compute  the  logistics 
requirements  for  new  systems.  QBEHAVE  sends  results  to 
the  printer.  Thus  it  is  necessary  to  switch  the  printer 
on  and  align  the  paper. 

To  start  QBEHAVE,  type  from  the  DOS  prompt: 
(I)  C> QBEHAVE  center > 
(M) 


WHHHHHHHHHHHHHHHHHHHHWBHHI 

••»         Parogrart    Made    Menu       •*■»•• 

WMMHHHBHt»HMHHHWHHHHHHHa«BI 


(  8  )  ...  Check  Queuing  Be hauler  uithout 

Sensitivity  Analysis  (faster) 

(  1  )  ...  Check  Queuing  Behauior  with 

Sensitivity  Analysis 


Default  Value  is  8. 
To  accept  press  ENTER j  else  enter  value 


(C)  let  us  use  the  full  computational  power  of  CAESAR 
( I  )  1  (enter > 
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(M) 


Enter  sensitivity  analysis  bounds  in  per  cent 


The  default  ualue  is  18 • 


To  accept  default "press  ENTER j  else  type  ualue 


(C)  let  us  use  the  default  value 

(I)  <enter> 

(M) 


. 

Enter  the  stockout 

risk  factor 

r 

(  8.8  <  r  < 

1.8  3 

The  default  va! 

.ue  is 

8.1. 

To 

accept  default  press 

ENTER; 

.  else 

type 

va 

lue 

(C)  let  us  use  the  default  value 
( I  )  <enter  > 


94 


(M) 


Enter  ave.   shipping   tine  for  ordered    itewa    in  days: 


Tha  default  value    is  5  days . 


To  accept  default  press  ENTER*   else  type   value 


(C)  let   us   use    the    default    value 

( I )  <enter > 

(C)  QBEHAVE  starts  sorting  data  for  level  Org  Mn 

(M) 


Leuel  Org  fin 


Sort  Dat-a  En-tries 


(C)  now  assign  servers  on  Org  Mn  level 
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(M) 


yinpibeif  of  servers  For   level  0r«r  nT> 


Cqf?fu  te  Q  tte  ye  i  iw  Hehft  v  i  or 


Leyei  yi^j  mi 


(C)  assign  servers  on  DS/GS  and  DEPOT  level 

(C)  this  screen  looks  like  the  one  earlier,  because  the 

number  of  servers  has  not  yet  changed. 
(M) 


MiKoer  of  servers  fop  level  Drti  rlv?   ' 


LOBipyixe  igueus  i  <i£  iFeiidviQi1 
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(C)  one  combination  of  servers  has  been  calculated, 
this  continues  until  calculations  with  all 
combinations  have   been  performed.  Eventually,  with 
two  repairmen  on  each  maintenance  level  ,  the  screen 
looks  like 

(M) 


i 

of  ssrvgrs  for 

! ......  1 

'ft...   ..i.            • 

• 

i 

i 

i 

Ijl      h6\j3.'  v\ji.  'o    a  O* 

AC?  VC?  .1 

1 
/J 

J 
i 

,...„va./.. 

iCVC  1 

Ul'Q     Mil      - 

o 

£- 

Cos>yy.t8  Queue  Im  BeK 

ivioi* 

. 

(C)  each  combination  of  repairmen  on  the  different 

levels  is  printed 
(C)  QBEHAVE  starts  analyzing  the  spare  part  consumption 
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(M) 


! 

i 

A     3         3 

S  lsfi/S  CiV>  1  ITjrfV 

01 

i  Ai •3Ui» 

i 
i 

1 

(C)  the  final  results  of  this  process  will  be  printed 

( M )  ***************** 

**  Program  End  ** 
***************** 

(C)  this  concludes  the  program  QBEHAVE 

(C)  the  output  contains  the  following  information: 

-  number  of  customers 

-  number  of  failures 

-  number  of  servers  for  each  level 

-  number  of  delays  for  each  level 

-  max.  queue  length  for  each  level 

-  total  waiting  time  for  each  level 

-  percentages  servers  are  busy  for  each  level 

-  total  elapsed  time  and  number  of  4  week  periods 

for  the  service  organization  and 

-  national  stock  number 

-  initial  stock  level 

-  final  stock  level 

-  minimum  stock  level 

for  the  supply  organization. 
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The  following  pages  are  the  output  of  QBEHAVE's 
sample  run  with  data  created  earlier  by  ESTIMATE. 

Eight  pages  show  different  combinations  of  numbers 
of  repairmen  on  the  three  maintenance  levels.  Compare 
the  waiting  times  and  the  percentages  of  time  the 
servers  are  busy! 

The  last  of  the  output  pages  shows  the  behavior  in 
terms  of  spare  parts.  Observe  the  bottleneck  of 
insufficient  stocks  for  item  13  in  all  of  the 
combinations  (  the  debits  were  only  a  maximum  of  one 
each  ).  One  might  want  to  increase  the  stock  level  for 
this  item  by  one. 
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Program  Start  Tims  is  :  05-28-1957  11; 11; 03 

Queuing  Behavior  for  Varying  Numbers  of  Servers   PAGE   1 


LEVEL  ORG  MN  : 

no  of  customers  = 

no  of  failures  = 

no  of  servers  = 

no  of  delays  = 

max  queue  length  = 

total  waiting  time  = 


30 

50 
1 

41 
4  customers 
413.94  hours 


average   waiting  time  per   waiting  customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server   1  is  busy  =  75.4  % 

LEVEL  DS/GS  : 


no  of  servers  = 
no  of  delays  = 
max  queue  length  = 
total  waiting  time  = 


1 
11 
4  customers 
59.95   hours 


average   waiting  time  per   waiting  customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server   1  is  busy  =  31.8  % 

LEVEL  DEPOT  : 


no  of  servers 
no  of  delays 
max  queue  length 
total  waiting  time 


1 
0 

0  customers 
0. 00   hours 


average   waiting  time  per  waiting   customer  = 
expected  waiting  time  per  entering  customer  = 


10. 10  hours 
8.28  hours 


5. 45  hours 
1.20  hours 


0. 00  hours 
0. 00  hours 


percentage  server   1  is  busy  =   3.1% 

Total  elapsed  time  for     50  failures  =   12.59  weeks 

Total  number  of  4  week  periods  for    50  failures  = 


3.  1 
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Summary  of  Item  Consumption  and  Stock  Levels      PAGE 


STOCK  NO.    INITIAL  STOCK    FINAL  STOCK    MIN.  STOCK 


1  1234-12-130-0000  9  9              0 

2  1234-12-131-0000  9  9              0 

3  1234-12-131-0002  3  2              0 

4  1234-12-110-0000  4  4              0 

5  1234-12-112-0000  3  3              0 

6  1234-12-112-1000  2  2              0 

7  1234-12-112-1003  2  10 

8  1234-12-100-0001  110 

9  1234-12-131-0003  4  4              0 

10  1234-12-131-0001  .2  1              0 

11  1234-12-120-0000  2  2              0 

12  1234-12-121-0000  2  2              0 

13  1234-12-121-0003  2  1             -1 

14  1234-12-112-0002  110 

15  1234-12-113-0000  2  2                                    0 

16  1234-12-113-0003  110 

17  1234-12-121-0002  110 

18  1234-12-112-1002  110 

19  1234-12-113-0002  110 
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Queuing  Behavior  for  Varying  lumbers  of  Servers   PAGE   3 


LEVEL  ORG  MN  : 

no  of  customers  = 

no  of  failures  = 

no  of  servers  = 

no  of  delays  = 

max  queue  length  = 

total  waiting  time  = 


30 
50 

2 
12 

3  customers 
23.21  hours 


average   waiting  time  per   waiting  customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server   1  is  busy  =  45.9  % 
percentage  server   2  is  busy  =  31.1  % 


LEVEL  DS/GS  : 

no  of  servers  = 
no  of  delays  = 
max  queue  length  = 
total  waiting  time  = 


1 
11 
2  customers 
69.05   hours 


average   waiting  time  per   waiting  customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server   1  is  busy  =  32.5  % 

LEVEL  DEPOT  : 


no  of  servers  = 
no  of  delays  = 
max  queue  length  = 
total  waiting  time  = 


1 
0 

0  customers 
0. 00   hours 


average   waiting  time  per  waiting   customer  = 
expected  waiting  time  per  entering  customer  = 


1.93  hours 
0. 46  hours 


6. 28  hours 
1.38  hours 


0. 00  hours 
0. 00  hours 


percentage  server   1  is  busy  =   3.2  % 

Total  elapsed  time  for     50  failures  =   12\ 33  weeks 

Total  number  of  4  week  periods  for    50  failures  = 


3.  1 
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Summary  of  Item  Consumption  and  Stock  Levels      PAGE 


STOCK  NO.    INITIAL  STOCK    FINAL  STOCK    KIN.  STOCK 


1  1234-12-130-0000  9  9              0 

2  1234-12-131-0000  9  9              0 

3  1234-12-131-0002  3  2              0 

4  1234-12-110-0000  4  4              0 

5  1234-12-112-0000  3  3              0 

6  1234-12-112-1000  2  2              0 

7  1234-12-112-1003  2  2              0 

8  1234-12-100-0001  110 

9  1234-12-131-0003  4  3              0 

10  1234-12-131-0001  .2  1              0 

11  1234-12-120-0000  2  2              0 

12  1234-12-121-0000  2  2              0 

13  1234-12-121-0003  2  1-1 

14  1234-12-112-0002  110 

15  1234-12-113-0000  2  2                                    0 

16  1234-12-113-0003  110 

17  1234-12-121-0002  110 

18  1234-12-112-1002  110 

19  1234-12-113-0002  1  1                                    0 
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Queuing  Behavior  for  Varying  Numbers  of  Servers   PAGE   5 


LEVEL  ORG  MN  : 

no  of  customers  = 

no  of  failures  = 

no  of  servers  = 

no  of  delays  = 

max  queue  length  = 

total  waiting  time  = 


30 

50 
1 

41 
4  customers 
413.94  hours 


average   waiting  time  per   waiting  customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server-  1  is  busy  =  75.4  % 

LEVEL  DS/GS  : 


no  of  servers 
no  of  delays 
max  queue  length 
total  waiting  time 


2 
0 

0  customers 
0.00   hours 


average   waiting  time  per   waiting   customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server   1  is  busy  =  31.2  % 
percentage  server   2  is  busy  =   0.6  % 

LEVEL  DEPOT  : 


no  of  servers  = 
no  of  delays  = 
max  queue  length  = 
total  waiting  time  = 


1 
0 

0  customers 
.  0.00   hours 


average   waiting  time  per  waiting   customer  = 
expected  waiting  time  per  entering  customer  = 


10. 10  hours 
8.28  hours 


0. 00  hours 
0. 00  hours 


0. 00  hours 
0. 00  hours 


percentage  server   1  is  busy  =   3.1% 

Total  elapsed  time  for     50  failures  =   12.59  weeks 

Total  number  of  4  week  periods  for    50  failures  = 


3.  1 
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Summary  of  Item  Consumption  and  Stock  Levels      PAGE 


STOCK  NO.     INITIAL  STOCK    FINAL  STOCK    MIN.  STOCK 


1  1234-12-130-0000  9  9              0 

2  1234-12-131-0000  9  9              0 

3  1234-12-131-0002  3  2              0 

4  1234-12-110-0000  4  4              0 

5  1234-12-112-0000  3  3              0 

6  1234-12-112-1000  2  2              0 

7  1234-12-112-1003  2  10 

8  1234-12-100-0001  110 

9  1234-12-131-0003  4  4                                    0 

10  1234-12-131-0001  2  10 

11  1234-12-120-0000  2  2              0 

12  1234-12-121-0000  2  2              0 

13  1234-12-121-0003  2  1-1 

14  1234-12-112-0002  110 

15  1234-12-113-0000  2  2                                  0 

16  1234-12-113-0003  110 

17  1234-12-121-0002  110 

18  1234-12-112-1002  110 

19  1234-12-113-0002  110 
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Queuing  Behavior  for  Varying  Numbers  of  Servers   PAGE   7 


LEVEL  ORG  MU  : 

no  of  customers  = 

no  of  failures  = 

no  of  servers  = 

no  of  delays  = 

max  queue  length  = 

total  waiting  time  = 


30 
50 

12 

3  customers 
23.21  hours 


average   waiting  time  per   waiting  customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server   1  is  busy  =  45.9  % 
percentage  server   2  is  busy  =  31.1  % 

LEVEL  DS/GS  : 


no  of  servers  = 
no  of  delays  = 
max  queue  length  = 
total  waiting  time  = 


2 
2 

1  customers 
1. 74   hours 


average   waiting  time  per   waiting  customer  = 
expected  waiting  time  per  entering  customer  = 

percentage  server   1  is  busy  =  28.  1  % 
percentage  server   2  is  busy  =   4.3  % 

LEVEL  DEPOT  : 


no  of  servers  = 
no  of  delays  = 
max  queue  length  = 
total  waiting  time  = 


1 
0 

0  customers 
0.00   hours 


average   waiting  time  per  waiting   customer  = 
expected  waiting  time  per  entering  customer  = 


1 . 93  hours 
0. 46  hours 


0.87  hours 
0. 03  hours 


0, 00  hours 
0. 00  hours 


percentage  server   1  is  busy  =   3.2  % 

Total  elapsed  time  for     50  failures  =   12.33  weeks 

Total  number  of  4  week  periods  for    50  failures  = 


3.  1 
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Summary  of  Item  Consumption  and  Stock  Levels      PAGE   8 


STOCK  NO.    INITIAL  STOCK    FINAL  STOCK    MIN.  STOCK 


1  1234-12-130-0000  9  9              0 

2  1234-12-131-0000  9  9              0 

3  1234-12-131-0002  3  2              0 

4  1234-12-110-0000  4  4              0 

5  1234-12-112-0000  3  3              0 

6  1234-12-112-1000  2  2              0 

7  1234-12-112-1003  2  2              0 

8  1234-12-100-0001  110 

9  1234-12-131-0003  4  3              0 

10  1234-12-131-0001  .2  1              0 

11  1234-12-120-0000  2  2              0 

12  1234-12-121-0000  2  2              0 

13  1234-12-121-0003  2  1-1 

14  1234-12-112-0002  110 

15  1234-12-113-0000  2  2                                    0 

16  1234-12-113-0003  110 

17  1234-12-121-0002  110 

18  1234-12-112-1002  1  1                                    0 

19  1234-12-113-0002  110 
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APPENDIX  B 


USER'S  GUIDE 


The  summary  of  CAESAR  in  this  user's  guide  enables 
the  user  to  use  CAESAR  without  need  of  the  theoretical 
overhead  in  the  main  part  of  the  study. 

Each  program  in  CAESAR  will  he  explained  in  detail. 
Inputs  and  outputs  are  clearly  marked  and  the  user  can 
easily  follow  the  program  flow. 

All  programs  of  CAESAR  were  written  and  compiled 
with  the  program  TURBO  BASIC  [Ref.  6]. 
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1 .   Introduction 

a.   Purpose  of  CAESAR 

The  programs  contained  in  CAESAR  were  written 
for  the  IBM  XT/AT  or  compatible  computers  to  estimate 
the  logistics  requirements  for  a  new  system  in  terms  of 
manpower  and  supply  stocks. 

CAESAR,  (Computer  Aided  Evaluation  of  Supply 
and  support  on  All  Repair  levels),  uses  inputs  like 
system  distribution,  system  characteristic  data  and 
major  unit  data  to  create  a  scenario  within  any  major 
unit  that  provides  conclusions  about  the  behavior  of  a 
given  number  of  failing  systems  in  this  scenario  before 
the  system  is  introduced  into  the  Armed  Forces  (  or  any 
other  customer  with  similar  structures). 

CAESAR  is  strictly  thought  of  as  a  decision 
making  aid,  it  must  not  be  confused  with  artificial 
intelligence.  The  output  of  CAESAR  is  able  to 
explicitly  suggest  reasonable  logistical  structures  and 
to  show  alternatives  to  the  suggested  solution.  Thus  it 
can  be  a  valuable  tool  in  the  hands  of  a  manager, 
responsible  of  introducing  new  equipment  and  the 
accompanying  supporting  network. 

System  requirements   for  CAESAR  are  at  least 
512  kByte   of   memory,   one   floppy   disk   drive   and  a 
harddisk.  The   use  of   extended  or   expanded  memory  and 
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the   installation   of   a   RAM-Disk   will   speed   up  the 
programs  significantly. 

Operating  system  is  DOS  version  2.10  or  higher. 
A  printer  has  to  be  connected  for  the  programs  ESTIMATE 
and  QBEHAVE ,  otherwise  the  programs  will  generate  an 
error  message  and  abort. 

For   the   following   instructions   the  use  of  a 
harddisk  as  drive  C  is  assumed, 
b.   How  To  Get  Started 

To  be  able  to  use  the  program,  boot-up  your 
computer  and  after  getting  the  DOS-prompt  "C>"  create  a 
sub-directory  on  your  harddisk  with  the  following 
command: 

OMD\CAESAR.        (You  do  not  have  to  type  C>  !  ) 
Make  this  sub-directory  your  current  directory: 

OCD\CAESAR. 
Now  insert   the  CAESAR  I  floppy  disk  into  your  A-drive. 
If  you  are  not  sure  which  drive  is   the  A-drive  consult 
your  computer  manual . 

To  copy  the  program  files  from  the  CAESAR  I 
floppy  disk  to  the  harddisk  enter  the  following 
command : 

OCOPY  A:*.*  C:  . 

This  command  will  copy  all  files  from  the 
floppy  drive  A   to   the   sub-directory   CAESAR   on  your 
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harddisk  C.   Repeat  the   above  procedure  for  the  CAESAR 
II  and  III  floppy  disks. 

Now  you  are  ready  to  enter   the  structural  data 
for  the  major  units  and  the  new  system.  These  data  will 
later   be   used   in   the   programs    that   perform   the 
simulations . 
2.   Program  TACMIX.EXE 
a.   Start  TACMIX 

TACMIX  is  the  graphic  interface  for  CAESAR  to 
provide  the  input  of  major  unit  structures.  The  program 
is  written  and  compiled  in  TURBOBASIC.  TACMIX  is  found 
on  CAESAR  disk  I.  Familiarity  with  the  common  tactical 
signs  is  assumed  (see  app .  C).  The  program  will  present 
the  tactical  signs  of  both  the  US  and  West  German 
Armies. 

To  start  TACMIX  simply  type: 
OTACMIX. 

The  program  will  respond  with  the  main  menu  as 
shown  in  figure  B.l. 

After  your  choice  the  display  of  all  available 
major  unit  types  will  appear  (except  for  option  9). 
Figure  B.2  shows  this  screen.  Now  you  have  to  chose  the 
major  unit  you   want  to  work  with. 
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Figure    B.l      Main   Menu   Program   TACMIX 
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Figure  B.2   Major  Units  Display  Screen 
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b .   Option  1;  Create  New  Organization 

In  option  1,  create  a  new  organization,  the 
program  will  present  several  screens  like  the  one  in 
Figure  B.2  with  all  possible  unit  types  for  your 
selected  major  unit. 

On  the  bottom  of  the  screen  you  will  read  the 
following  message: 

"enter  unit  code  number  (ENTER  for  next  frame)  :  ". 

If  you  decided  you  need  any  of  the  depicted  unit 
types  for  your  major  unit,  simply  enter  the  code  number 
below  the  symbol.  End  your  input  with  the  ENTER  key. 
The  program  wants  to  know  how  many  of  these  unit  types 
are  in  the  major  unit  you  chose  and  displays  this 
message  on  the  bottom  of  the  screen: 

"enter  number  of  these  units  (default=l)  :". 

You  can  enter  any  number  now.  If  you  only  have 
one  of  this  unit  type  in  your  major  unit,  simply  press 
the  ENTER  key  and  TACMIX  will  set  the  number  to  1. 

Repeat  this  for  all  unit  types  on  this  screen 
that  you  want  to  include  in  your  major  unit. 

When  you  have  entered  all  wanted  units  from  the 
current  graphic  screen,  press  the  ENTER  key  at  the  unit 
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code  number  prompt  to  see  the  next  available  unit 
symbols.  Take  your  choices  as  before.  If  you  press  the 
ENTER  key  at  the  unit  code  number  prompt  after  the  last 
screen  is  displayed,  TACMIX  will  store  your  input  in  a 
sequential  data  file. 

Depending  on  the  type  of  major  unit  you  chose, 
the  file  will  be  called  "CORPS",  "DIVx"  or  "BRIGxx" , 
where  the  "x"  or  "xx"  stand  for  the  number  of  the  major 
unit,  you  chose. 

E.g.  the  contents  of  file  "BRIG12"  might  look 
like  depicted  in  Figure  B.3. 


1 

Major  Unit  Code  Huwter 
(12=  Awwred  Brigade) 

Unit  Code  NuMber 

u 

12,8 

454 

31,3 

594 

1194 

1244 

1394 

1484 

1414 

1    1 

1 
HuMber  of  Unit  Types 

Hunker  of  this  Unit 

i 

Figure  B.3   Sample  Contents  of  a  Major  Unit  File 
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Working  samples  for  all  major  unit  types  are 
included  on  the  CAESAR  data  disk. 

c .   Option  2:  View  Existing;  Organization 

In  option  2,  view  existing  organization,  the 
program  will  display  the  screen  shown  in  Figure  B.2. 
After  your  choice  of  the  major  unit,  the  program  will 
access  the  major  unit  data  file  and  display  all  of  the 
unit  types  within  this  major  unit  on  consecutive 
screens.  Figure  B.4  gives  an  example  for  major  unit  14 
(airborne  brigade). 


Figure  B.4   View  Airborne  Brigade 

If  there  are  more  than  one  units  of  a  specific 
type,  then  there  will  be  an  index  outside  the  lower 
right  corner   of  the   symbol,  indicating   the  number  of 
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these  units.   In  Figure   B.4  there  are  three  unit  types 
48  and  one  each  of  the  others. 

To  get  to  the  next  screen,  simply  press  any 
key.  To  get  back  to  the  main  menu  after  the  last  screen 
for  your  chosen  major  you  press  any  key. 

d .   Option  3:  Modify  Existing  Organization 

In  option  3,  modify  existing  organization,  the 
program  will  display  the  screen  shown  in  Figure  B.2. 
After  your  choice  of  the  major  unit,  the  program  will 
access  the  major  unit  data  file  and  display  all  of  the 
unit  types  within  this  major  unit  on  consecutive 
screens.  Figure  B.5  gives  an  example  for  major  unit  12 
(armored  brigade). 
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Figure  B.5   Modify  Major  Unit  12 
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For  each  screen  you  will  be  asked: 

"Any  Modifications  ?". 

If  you  respond  with  "n"  or  "N"  (do  not  type  the 
quotes),  then  the  next  screen  will  be  displayed.  If 
there  is  only  one  screen  or  you  have  already  reached 
the  last  one,  "n"  or  "N"  will  get  you  back  to  the  main 
menu.  If  you  press  any  other  key  you  will  be  asked: 

"Which  Modification  ?   ( 0=erase , l=change   number  of 
units, 2-add  a  unit)". 

You  decide  now,  which  kind  of  modification  to  perform 
and  enter  the  appropriate  number.  The  program  will 
prompt  you: 

"Which  Unit  Number  ?", 

and  you  enter  the  code  number  for  the  unit  to  be 
changed . 

If  you  wanted  to  erase  a  unit,  the  screen  will 
now  be  redrawn  without  the  erased  unit  -  the  file  has 
been  modified  in  the  meantime. 

For  the  change  of  number  of  units  you  see  this 
prompt : 
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"Enter  new  number  of  units". 

After  you  entered  the  required  number  the 
screen  will  be  redrawn  and  the  modification  will  have 
been  made  both  on  the  screen  and  in  the  file. 

If  you  want  to  add  another  unit  type  you  enter 
the  unit  code  number  at  the: 

"Which  Unit  Number" 

prompt.  Now  you  will  be  asked  to 

"Enter  number  of  new  units". 

When  you  enter  this  number  the  data  file  will  be 
updated  and  the  screen  will  be  redrawn  including  the 
new  unit  type  and  the  correct  number  of  this  type 
outside  the  lower  right  corner  of  the  symbol  for  this 
unit  type.  Since  the  unit  code  numbers  are  in  ascending 
order,  the  unit  you  have  added  might  be  on  a  later 
screen . 

e .   Option  9:  Terminate  Program 

When  you   are   finished   with   the   program  you 
chose  option  9,  termination  of  the  program. 
Do  not  turn  off  your  computer  without  running  option  9. 
You  might  loose  data  if  not  all  file  are  closed. 
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After  you  chose  option  9,  the  program  will  get 
you  back  to  the  DOS  prompt 

■  C  >  "  . 
3.   Program  INMILDAT.EXE 
a.   Start  INMILDAT 

INMILDAT  is  the  graphic  interface  for  CAESAR  to 
provide  the  input  of  the  distribution  of  the  new 
systems  within  the  corps.  INMILDAT  can  be  found  on  the 
CAESAR  I  disk.  Familiarity  with  the  common  tactical 
signs  is  assumed1.  The  program  will  present  the  most 
commonly  used  tactical  signs  of  both  the  US  and  West 
German  Armies. 

INMILDAT  will  create  a  new  data  file  with  the 
unit  code  numbers  of  the  selected  units  and  the 
respective  number  of  systems.  If  you  want  to  keep  the 
previous  data  file,  make  sure  to  select  another  name 
for  the  new  one  or  rename  the  old  one  and  type  from  the 
DOS  prompt  "C>": 

"ORENAME  DISTRIBN   DISTOLD"  . 

This  DOS  command  will  rename  the  data  file 
"DISTRIBN"  into  "DISTOLD".  You  can  use  any  other  name 
up  to  8  characters,  as  long  as  it  is  not  the  same  as 
one  already  in  use.  Now,  when  you  start  INMILDAT,  you 
can  use  the  file  name  "DISTRIBN"  without  loosing  any 
previous  data. 


^see  Appendix  C 
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To  start  INMILDAT  simply  type: 
OINMILDAT. 

The  program  will  immediately  respond  with  the 
first  unit  symbol. 

b.   Operate  INMILDAT 

The  first  graphic  screen  will  show  the  anti- 
aircraft defence  regiment,  code  number  21.  Figure  B.6 
shows  this  screen. 


1  1  1 
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/    X  X  X 
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S         C  ^  3 

ANTI  AIRCRAFT  DEFENCE  REGIMENT 
how  Many  systems  ? 

Figure  B.6  Sample  INMILDAT  Screen 


You  will  be  asked: 


"how  many  systems" 
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If  there  will  be  some  of  the  new  systems  in 
this  unit  type,  enter  the  number  of  the  systems.  If 
not,  press  ENTER  to  see  the  next  unit  symbol.  Once  you 
enter  a  number  you  will  be  asked  to  verify: 

"entry  ok" . 

Any  keystroke  except  "n"  or  "N"  will  accept  the 
input  and  the  program  will  ask: 

"another  entry". 

Any  keystroke  except  "n"  or  "N"  will  lead  to 
the  next  available  symbol  until  all  possible  symbols 
have  been  presented  in  the  described  manner. 

After  the  last  symbol  you  will  be  asked: 

"do  you  want  a  reserve". 


If  you   decide  to   have  one, answer   with  "y"  or 
"Y".  The  next  required  information  is: 

"in  per  cent  or  absolute  (p/a)". 
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Now  enter  the  appropriate  letter  (P  or  A). 
Should  you  decide  for  per  cent,  the  program  will  ask 
you  to: 

"enter  percentage  (e.g.:25)". 

Please  enter  now  the  value  of  the  percentage, 
not  the  fraction  of  100.  Given  the  example,  for  25  % 
(.25)  you  would  enter  the  number  25.  Do  not  enter  .25 
unless  you  want  .25  % . 

In  the  case  of  a  reserve  in  absolute  numbers 
the  program  will  ask  you  to: 

"enter  number  of  systems". 

After  this  entry  you  will  be  asked  to  enter  a 
name  for  the  data  file  that  will  contain  the  system 
distribution  data: 

"To  save  data  name  file. 
Default  file  name  is  DISTRIBN. 
To  accept  default  press  ENTER  or  enter  file  name". 

Now  you  can  enter  the  file  name  you  prefer  or 
use  the  above  default  file  name.  If  you  decide  to  use 
the  default,   simply  press   the  ENTER   key  and  the  data 
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will  be  saved  Into  "DISTRIBN" .  Otherwise  they  will  he 
save  into  the  file  you  named.  You  can  enter  any  name  up 
to  8  characters. 

!  Do  not  use  a  name  that  has  already  been  used  before  ! 
The  new  file  will  overwrite  the  old  one  and  all 
previous  data  will  be  lost  ! 

4.   Program  INSYSDAT.EXE  . 

a.   Input  Format  for  INSYSDAT 

INSYSDAT  is   the  interface   for  CAESAR  to  enter 

the  characteristic   data  about   the  new   systems.  To  be 

able  to   enter  the   appropriate  inputs  you  have  to  know 

the  formats  of  these  inputs.  You  will  be   asked  for  the 

following  entries 

(underlined  entries  will  be  explained  in  detail)  : 

Item  Type 

National  Stock  Number 
Item  Description 
Number  of  Items 
Price  in  Dollars 
MTBF  in  days 
Replacement  Level 
Repair  Level 
MTTR  in  hours. 

Item   Type:   to   find   the   required  number  you  have  to 

break  up  the  system  (see  figure  B.7). 

The   system   (level   1)    consists   of   several 

components    (level    2).    Each    of    these   contains 

subcomponents   (level   3)    which    themselves   contain 
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subcomponents  (level  4)  etc.  If  an  item  cannot  be  split 
up  further,  then  it  is  a  part  (level   9).  Parts   can  be 
found  on  all  levels  except  the  system  (level  1). 
Figure  B.7  shows  the  schematic  structure  of  a  system. 
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Figure  B.7   System  Structure 

The  above  schematic  requires  the  classification 
of  all  items,  of  which  the   system  consists,   in  one  of 
the  levels   2-9.  Use  this  classification  as  input  for 
the  "Item  Number". 
EXAMPLE: 

Consider  a  car  as  the  system.  It  will  be  coded 
"1".  Now  take  the  body.  It  is  a  component  of  the  car 
and  will  be  coded  "2".  The  rear  hood  is  a  subcomponent 
"3"  and  the  lock  on  the  hood  is  a  subcomponent  "4". 
The  opening  mechanism  of  the  lock  is  subcomponent  "5" 
and  consists  of  parts  "9"  like  bolts,  nuts,  etc. 
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National  Stock  Number  (NSN):  this  is  a  13-digit  number 
in  the  following  format  (e.g.): 

1234-12-123-1234 , 

where  the  fifth  and  sixth  digit  (-12-)  should  be  the 
same  for  all  items  in  the  system,  because  the  program 
will  not  use  these  to  discriminate  between  items.  These 
two  digits  are  the  code  for  the  country  where  the  item 
is  built.  The  name  of  the  random  access  data  file  that 
is  generated  for  each  system,  component  and 
subcomponent  is 

AAAADDDD.CCC 
derived  from  the  National  Stock  Number 

AAAA-BB-CCC-DDDD . 

Replacement  Level:  this  is   the  level   where  the  failed 

item   is   replaced   at   a  maintenance  facility.  For  the 

system  it  is  the  level  where  the  component  is  replaced, 

for  the   component,  where   the  subcomponent  is  replaced 

etc.  Parts  can  be  replaced  on  any  level. 

These  are  the  possible  levels: 

Organizational  Maintenance  (Org  Mn )  level  "2" 
Direct/General  Support  (DS/GS)  level  "3" 
Depot/Industry  Maintenance   (Depot)        level  "4". 

Please  enter  the  code  number  for  the  appropriate  level. 

Repair  Level:  this  is  the  level  where  the  replaced  item 

is  repaired   at  a   maintenance  facility.  For  the  system 
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it  is   the  level   where  the   component  is  repaired,  for 

the  component,  where  the  subcomponent  is   repaired  etc. 

Parts  can  he  repaired  on  any  level. 

These  are  the  possible  levels: 

No  Repair  level  "0" 

Organizational  Maintenance  (Org  Mn )  level  "2" 

Direct/General  Support  ( DS/ GS )  level  "3" 

Depot/ Industry  Maintenance  (Depot)  level  "4". 

Please  enter  the  code  number  for  the  appropriate  level. 

b.  Start  INSYSDAT 

To  start  INSYSDAT  simply  type  at  the  DOS 
prompt : 

C> INSYSDAT. 

c.  Operate  INSYSDAT 

For  each  entry  you  will  find  a  sample  input.  To 
become  familiar  with  the  program,  you  are  welcome  to 
use  these  examples. 

The  first  program  prompt-  will  ask  you  for: 

"Item  Type  (l=System,  2=Component, 

3  .  .  .<3=Subcomponent ,  9=Part)". 

You  are  required  to  enter  the  type  classification  code 

(1  to  9)  as  described  in  paragraph  a. 

E.g.  for  a  component  enter  2. 

The  next  prompt  will  ask  you  for: 


126 


"National  Stock  Number  :". 
Please  enter   the  stock   number  in  the  format  described 
in  the  paragraph  a  ( AAAA-BB-CCC-DDDD ) . 
E.g.  enter  a  stock  number  like  1234-12-140-0000. 
If  the  item  type  code  is  2  or  greater,  the  program  will 
now  ask  you: 

"belongs  to  what  item  (next  level  stock  number):" 

You  want  to  enter  the  national  stock  number  of  the  next 
higher  level  item  here,  which  in  the  case  of  a 
component  would  be  the  system,  in  the  case  of  a  level  3 
subcomponent  the  component  etc. 

For  the  system  in  this  example  enter  1234-12-100-0000. 
With  this  information  the  program  is   able  to   check  if 
this  item   is  already   stored  under  the  same  next  level 
item.  If   it   is,   you  will   see   the   following  error 
message : 

"input  error: item  already  stored 
press  any  key  to  continue" 

and  the  program  will  start  from  the  beginning.  If  the 
item  is  not  yet  stored  the  program  will  proceed  and  you 
will  be  asked  to  enter: 

"Item  Description  :". 
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E.g.  enter  Test  Item. 

The  next  inputs  only  apply  to  item  types  2  to  9 

"Unit  Price  in  US  Dollars  :  $". 

Give  the  price  for  one  item. 

E.g.  type  253.98  . 

Now  the  program  will  ask  you  for: 

"How  many  of  these  Items  : " 


Enter  the   actual  number  of  these  items  within  the  next 

level  item.  Do  not   enter  the   overall  total   number  of 

this  item  in  the  complete  system. 

E.g.  enter  5  . 

The  next  prompt  will  be: 

"MTBF  (assumed)  in  Days  :". 

Enter  here   either  empirical   data,  an   estimate  or  the 

proposed  MTBF  by  the  manufacturer. 

E.g.  type  120. 

The  next  input  will  be: 

"Replacement  Level  (2=0rg  Mn , 3=DS/GS , 4=Depot ) " . 
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Use  the  code  number  (2  to  4)  for   the  replacement  level 

as  described  in  paragraph  a. 

E.g.  enter  2  for  organizational  maintenance. 

You  will  now  be  asked  for: 

"Repair  Level  ( 0=no , 2  =  0rg  Mn , 3=DS/GS , 4=Depot )  " . 

Again  use   the  code   number  (0,2   to  4)   for  the  repair 
level  as  described  in  paragraph  a.   For  a   part,  repair 
level  0  is  set  by  default  and  displayed  on  the  screen. 
E.g.  enter  3  for  direct/general  support. 
The  next  prompt  will  ask  you  for: 

"MTTR  (Repair/Replace)  in  Hours  :" 

Enter  here  the  actually  needed  repair/replace  times,  an 
estimate  or  numbers  given  by  the  manufacturer  in  hours. 
E.g.  for  200  minutes  you  enter  3.3  . 

You  now  have  completed  the  input  phase.  To 
verify  your  inputs  the  screen  in  Figure  B.8  with  a 
summary  of  your  inputs  will  be  displayed. 

Figure  B.8  shows  the  data  you  Just  entered  to 
verify  the  input. 
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Type 

!  Component 

National  Stock  Huwber 

:  1234-12-140-3888 

Item  Description 

:  Test  Item 

Unit  Price  in  US  Dollars 

:$    253.98 

Nunber  of  items 

:  5 

MTBF  (  assumed  ) 

:   129  days 

Replacement  Level 

!  Organ.  Maintainance 

Repair  Level 

!  Direct  /  General  Support 

MTTR  Creplace) 

!     3.3  hours 

****»**«    antries  corre^v  ;  vy  m./    «#»-««.««• 

Figure  B.8   Summary  of  Inputs  for  INSYSDAT 

If  you  want  to  accept  the  inputs,  press  "y"  or 
"Y".  If  not  press  "n"  or  "N" . 

After  accepting  the  data  are  written  into 
random  access  files.  This  file  is  for  item  type  code 
numbers  2  to  9  the  next  higher  item  -stock  number 
converted  into  a  file  name  as  described  in  paragraph  b. 
For  the  system  it  is  its  own  stock  number  converted 
into  that  format. 
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The  last  prompt  in  this  sequence  is: 

"another  entry  ?". 
"Y"  or   "y"  get   you  to   the  program  starting  point  and 
you  can  enter  the  next  set  of  data.  Any  other   key  will 
end  the  program. 

d.   Error  Messages 

INSYSDAT  handles  three  different  types  of  input 
errors: 

Invalid  Repair  Level 

If  the  repair  level  for  any  item  is  less  than  the 
replacement  level   you  will  see  the  following  error 
message : 

"input  error:  repair  level  invalid 
press  any  key  to  continue" 

The  program  assumes  an  earlier  input  error  and 
starts  all  over  again. 
Item  Already  Stored 

If  an   item  with  the  same  stock  number  has  already 
been  stored  under  the  given  next  level  item  stock 
number  then  this  message  will  be  dispayed: 
"input  error:  item  already  stored 
press  any  key  to  continue 
The  program  starts  from  the  beginning. 
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Number  Exceeds  Maximum 

The  number  of  data  sets  in  the  random  access  files  is 
restricted  to  95  for  each  file  to  guarantee 
reasonable  run   time  of  the  program.  If  the  entered 
data  set  exceeds  this  number  you  will  see  this 
message : 

"input  error:  number  of  items  exceeds  maximum 
press  any  key  to  continue" 

To  avoid   this  message  recheck  the  structure  of  the 
system.  It  might  be  possible  to  define  another   item 
to  decrease   the  number  of  items  in  this  specific 
level . 

Make  sure  that  all  data  files  for  the   system, 
the  components   and  the  subcomponents  are  in  the  same 
directory.  Otherwise  the  program  is  not  able  to 
search  for   already  stored  items.  Furthermore  the  use 
of  the  data  files  by  the  programs  ESTIMATE  and 
QBEHAVE  requires   that  they  will  be  in  the  same 
directory  as  these  programs. 

With  the  input  of  these  data  the  process  of 
generating  data   files  is  complete  and  the  data  can 
now  be  evaluated. 
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4.   Program  ESTIMATE.EXE 
a.   Start  ESTIMATE 

ESTIMATE  is  one  of  the  two  major  programs  in 
CAESAR  to  simulate  and  compute  logistics  requirements. 
The  other  one  is  QBEHAVE.  ESTIMATE  combines  the  data  in 
the  major  unit  structur  files,  created  by  TACMIX,  the 
data  in  the  system  distribution  file,  created  by 
INMILDAT  and  the  system  data,  created  by  INSYSDAT.  From 
these  data  it  simulates  the  new  systems  in  the  chosen 
major  unit  for  a  given  number  of  failures.  After 
ESTIMATE  finishes  the  SAMPSIZE  trials  for  all  levels  of 
maintenance  the  number  of  manhours  and  comsumed  parts 
as  well  as  all  related  times  will  be  known. 

The  generation  of  the  various  times  is  based  on 
the  assumption  that  all  times  have  known  distributions 
whose  parameters  are  also  known.  If  you  are  not  sure 
about  the  distribution  or  the  parameters  for  an  input, 
take  a  guess  for  the  distribution  and  then  use  the 
default  values.  That  should  give  reasonable  results. 

For  MTTR  and  MTBF  the  distributions  are  assumed 
to  be  exponential  with  the  given  values  as  means. 

ESTIMATE  requires  a  printer  for  the  output, 
otherwise  DOS  will  generate  an  error  message  and  abort. 

To  start  ESTIMATE  simply  type  at  the  DOS 
prompt : 

C>ESTIMATE. 
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b.   Operate  ESTIMATE 

As  soon  as  you  start  ESTIMATE,  it  will  ask  you 
to: 

"Enter  total  number  of  failures  to  similate  (<-1000):" 

The  number  you  enter  here  is  the  number  of  failures  to 
generate.  This  is  not  the  number  of  systems  in  a 
specific  major  unit.  These  numbers  are  independent  of 
each  other  since  the  number  of  systems  depend  on  the 
major  unit  type  that  is  chosen  later  in  the  process. 
The  number  to  be  entered  has  to  be  at  most  1000  and 
will  be  printed.  The  greater  the  number  you  pick,  the 
better  the  prediction  will  be,  but  also  the  longer  the 
runtime  of  the  program. 

After  this  the  program  will  tell  you  to: 

"adjust  paper  in  printer 
press  a  key  to  continue". 

Make  sure  your  printer  is  connected  and  online 
and  that  your  paper  is  at  the  top  of  a  new  page.  Press 
any  key  to  proceed.  The  next  required  steps  are  to 
enter  the  distributions  and  parameters  of  the 
transportation  and  administrative  delay  times  for  each 
of  the  three  maintenance  levels. 
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Figure  B.9  shows  the   screen  for   the  selection 
of  levels  . 


Enter 

required 

infomation  about  the 
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tines 

(one 

way): 
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on 
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(  2  ) 

™ 

on 

the  Depot  /  Industry 

level 

(  3  ) 

no  nore  entries 

(  9  ) 

Figure  B.9   Menu  for  Administrative  Delay  Times 

You  have  to  enter  data  for  all  levels  of 
maintenance.  Do  not  skip  any  input  since  these  data 
will  be  used  later  in  the  program.  You  may,  however, 
use  the  default  values  for  each  distribution.  So,  enter 
a  "1"  for  the  Org  Mn  level  and  the  screen  will  present 
the  available  distributions. 

Figure  B.10  shows  your  options  for  the 
distributions.  Pick  the  one  you  want  or  guess  at  one  of 
them.  If  you  do  not  want  to  have  a  random  time  pick  the 
fixed   value.   Your   delay   time  for  the  selected  level 
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will  in  this  case  not  be   generated,  by   a  random  number 
generator  but  will  be  treated  as  a  constant. 

These  are  your  options  for  the  distributions: 


transportation  tines  (one  way) 
Enter  desired  distribution  for  the  tine  delays: 


unifom 

<  i ) 

normal 

(  2  ) 

exponential 

<  3  ) 

ft£i 

m 

Figure  B.10   Distributions  of  Delay  Times 

Figure  B.ll  shows  a  screen  prompting  for  the 
lower  limit  of  a  uniform  distribution  as  an  example  for 
a  screen  to  enter  parameters  for  the  distributions. 

As  soon  as  a  distribution  with  its  respective 
parameters  has  been  entered,  the  program  will  print 
these.  Vhen  the  input  is  complete  for  all  maintenance 
levels  this  information  will  also  be  available  in  an 
auxiliary  data  file  "006". 


1  :>,(> 


This  is  a  sample  screen  to  enter  parameters: 


transportation  tines  (one  way) 
On  the  user  /  org  nalnt.  level ,   enter  for  the  uniforn  distribution 


the  lower  Unit  in  hours 
the  default  ualue  is  :  1 


Uant  to  accept  default  ualue  -  press  EMTER  key? 


Figure  B.ll   Enter  Parameters  for  Distribution 

If  you  entered  wrong  data,  simply  pick  the 
level  again  at  the  menu  shown  in  Figure  B.9  and  enter 
the  correct  numbers.  When  you  have  entered  all  the 
transportation  delay  time  distributions  for  the  three 
levels  correctly,  chose  option  9  to  get  to  the  screens 
for  the  administrative  delay  times.  These  screens  look 
the  same  as  the  previous  ones.  Enter  the  data  for  all 
three  levels  and  close  the  input  with  a  "9"  at  the 
level  menu  (see  Figure  B.9).  This  will  conclude  this 
phase  of  the  program. 
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Next  enter  a  few  additionally  required  data.  To 
be  able  to  compute  the  time  frame  ESTIMATE  will  ask  you 
to: 

"Enter  number  of  workhours  per  day". 

Give  here  the  average  number  of  both  the  system 
and  the  maintenance  workhours  on  a  workday.  Then 

"Enter  number  of  workdays  per  week". 

Again  enter  the  average  number  of  days  here. 
Now   the   program   needs   to   know  for  which  system  the 
simulation  run  has  to  be  performed.  Therefor: 

"Enter  the  System  Stock  Number  (e.g.  1234-12-123-1234)" 

You  enter  the  national  stock  number  for  the 
overall  system  in  the  format  given  in  the  parentheses. 

For  the   last  part   of  the  interaction  with  the 

user ,   ESTIMATE   needs   to   know   where    to   find  the 

information  about  the  system  distribution  within  the 
military  structure. 

Figure  B.12  shows  the  screen  that  asks  for  the 
name  of  this  file. 
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Systen  Dislocation  within  flajor  Units 

Input  filenane  for  systen  distribution  file 
Default  filenane  is  DISTfllBrt 


To  accept  default  press  EH7EH  or  enter  nane 


Figure  B.12   Name  of  System  Distribution  File 

After  this  entry  the  program  takes  one  major 
unit  after  the  other  and  finds  in  the  appropriate  data 
file  all  unit  types  within  the  major  unit  and  checks 
them  if  they  contain  the  system  in  question.  Finally, 
after  all  units  are  checked,  the  total  number  for  that 
major  unit  is  determined.  For  division  level  there  will 
be  two  numbers  computed,  one  for  the  divisional  units 
and  the  other  one  for  the  total  number  including  the 
subordinate  brigades.  The  same  is  valid  for  the  corps, 
in  which  the  number  for  the  corps  units  and  the  total 
including  the  subordinate' divisions  will  be  computed. 
Finally  the  program  will  find  the  number  for  the 
reserve.  Major   units,  that   do  not   contain  any  of  the 
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systems,  will   not  be   taken  into   account.  Figure  B.13 
shows  the  menu  for  the  major  units. 
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Figure  B.13   Menu  for  Major  Units 

The  number  in  parentheses  stands  for  the  number 
of  systems  in  that  particular  major  unit.  Enter  the 
number  (1  to  10)  that  represents  your  choice. 

This  was  the  last  input  for  ESTIMATE. 
Now  the   computation  starts.  ESTIMATE  will  display  what 
it  is  just  doing  with  messages  such  as: 

"Compute  Lambda  for  overall  system" 
"Subroutine  MTBF  Generation" 


140 


"xx  th  Iteration  for  Simulation 
Subroutine  Failure  Generation" 

"xx  th  Iteration  for  Simulation 
Subroutine  Update  Data  Files" 

"Subroutine  Summation  of  consumed  Items", 

where  the  xx  stand  for  the  numbers  inserted  by  the 
program  at  execution  time.  The  final  screen  with  the 
following  message  is  shown  in  Figure  B.14: 

"elapsed  time  for  xxxx  simulations  :  xxx.xx  weeks 

PROGRAM  END" 
Before  this  message  appears  on  the  screen,  the 
printer  will  have  printed  the  consumed  items  and 
manhours  for  each  level  of  maintenance  and  the  planning 
figures  for  a  four  week  period.  Also  statistical  data 
about  the  elapsed  time  and  the  systems'  status  plus  the 
total  cost  of  parts  will  be  provided. 
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elapsed  tine  for       50  sinulations    :  18.42  i^eeXs 


PROGRflfl  EHD 


Figure  B.14   End  Screen  Program  ESTIMATE 

5.   Program  QBEHAVE.EXE 
a.   Start  QBEHAVE 

QBEHAVE  is  the  second  of  the  two  major  programs 
in  CAESAR  to  simulate  and  compute  logistics 
requirements.  The  other  one  is  ESTIMATE.  QBEHAVE 
recomputes  the  data  from  ESTIMATE,  the  idealized  run- 
But  now  it  simulates  the.  failing  systems  as  customers 
in  a  real  service  environment.  Customers  have  to  form  a 
queue  and  will  be  served-  as  soon  as  a  server  is 
available . 

The  number  of  servers  is  determined  by 
ESTIMATE.  QBEHAVE  takes  this  number  and,  if  this  option 
is  chosen,  computes  for  a  given   bandwidth,  minimum  one 

142 


server,  on  either  side  the  real  behavior.  It  is 
assumed,  that  at  least  one  server  will  be  assigned  to 
each  level  of  maintenance. 

A  printer  is  required  for  QBEHAVE  to  avoid  a 
DOS  error  message. 

To  start  QBEHAVE  type  at  the  DOS  prompt: 
OQBEHAVE. 

b.   Operate  QBEHAVE 

All  required  data,  distributions  and  related 
information  will  be  obtained  from  auxiliary  data  files, 
created  by  ESTIMATE  and  the  data  files  containing  major 
unit,  system  and  organizational  data.  The  first  input 
for  QBEHAVE  is  the  choice  of  either  the  verification  of 
the  numbers  obtained  from  ESTIMATE  or  a  sensitivity 
analysis  of  the  numbers  (see  Figure  B.15).  QBEHAVE 
computes  its  results  for  the  same  failures  as  ESTIMATE, 
to  assure  the  comparability  of  the  two  sets  of  figures. 

After  this  choice,  the  user  has  to  determine 
the  sensitivity  bounds  (see  Figure  B.16),   the  stockout 
risk  factor   (see  Figure  B.17)  and  the  average  shipping 
time  for  ordered  items  (see  Figure  B.18)  to  provide  the 
basis  for  the  restocking  computations. 
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*•**         Pragran    Made    Menu       *«• 


C   B    3    ...    Check  Qiteu  Jng   Behaulor  without 

Sensitivity   Analysis    (faster? 

(    i    )     ...    Check  Queuing   Behauior-  with 
Sensitivity    Analysis 


Default   Value    is   9. 
To   accept   press    EH7ER .    else    enter    value 


Figure    B.15      Program   Mode   Menu 


Enter  sensitiuity  analysis  bounds  in  per  cent 


The  default  value  is  18. 


To  accept  default  press  ENTER*  else  type  ualue 


Figure  B.16   Choice  of  Sensitivity  Bounds 
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Enter  tJie  stockout  risk  factor  r 
(  8.8  <  r  <  1.8   ) 

The  default  value   is  8.1. 
To  accept  default  press  D*TER,   elso  type  value 


Figure    B.17      Input    of    the    Stockout    Risk   Factor 
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Figure    B.18      Input    of    the   Ave.    Shipping   Time 
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QBEHAVE  will  always  display  what  it  is  just 
computing.  That  provides  the  user  with  the  program 
status  at  each  time. 

When  the  program  is  started,  the  first  thing  to 
compute  is  the  sequence  of  entry  data  for  the  Org  Mn 
queue.  This  sequence  determines  all  other  times  for  the 
different  maintenance  levels. 

Figure  B.19  shows  the  message  for  this  step. 


JL«-_^  V»_r  a.  -J' .3.  y    125! 


Figure  B.19   QBEHAVE  Sort  Screen  Org  Mn 

After  these  data  have  been  sorted,  the 
customers  will  he  served  in  their  sequence  of  entering 
level  Org  Mn .  The  time,  the  customers  leave  service 
will  be  computed  and  the  time  the  systems  are 
operational  again.  Furthermore,  QBEHAVE   keeps  track  of 
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the   part   consumption   and   will,   at   the   end  of  the 
program  run,  print  the  supply  levels. 

Figure  B.20  displays  the  screen,  that   is  shown 
during  these  computations. 


iiUiiuci     \Ji.     Servers    iur     icvSi    inyvw 
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Figure  B.20   Service  on  Org  Mn  Level 

The  times,  the  customers  leave  level  Org  Mn  are 
the  failure  times  for  the  next  level,  DS/GS. 
Transportational  and  administrative  delay  times  will  be 
added.  The  service  enter  times  are  computed  and  brought 
into  sequence. 

As  before,  the  customers  will  be  served  and 
leave  service.  The  spare  parts  consumption  will  be 
noted.  The  repaired  items  will  go  back  into  the  supply 
chain  as  spares  for  the  lower  maintenance  level. 
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The  last  step  for  the  maintenance  portion  of 
the  program  are  the  computations  for  the  Depot  level. 
They  are  performed  using  the  same  algorithms  as  before. 
The  times  of  failure  for  the  customers  at  the  Depot 
level  are  the  times  the  customer  leaves  the  lower  level 
service.  Transportational  and  administrative  delay 
times  are  added. 

After  each  sort  routine,  the  program  will 
display  the  service  screen  with  the  number  of  servers 
available  on  all  levels  and  the  customer  being 
serviced.  When  all  three  levels  are  computed,  the 
current  combination  of  servers  on  each  level  is  printed 
with: 

-  number  of  customers 

-  number  of  failures 

-  number  of  servers  for  each  level 

-  number  of  delays  for  each  level 

-  max.  queue  length  for  each  level 

-  total  waiting  time  for  each  level 

-  percentages  servers  are  busy  for  each  level 

-  total  elapsed  time  and  number  of  4  week  periods 

Figure  B.21  shows  the  screen  for  the  sample  run 
after  all  combinations  of  servers  on  all  levels  have 
been  computed. 
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Figure  B.21   Service  on  Depot  Level 

QBEHAVE  will  now  analyze  the  spare  part 
consumption.  The  times,  when  items  were  needed  are 
known.  ESTIMATE  suggested  the  stock  levels.  QBEHAVE 
uses  these  suggestions.  Refill  of  parts  will  be 
performed  every  four  weeks  with  constant  increments. 
All  other  repairable  items  will  have  the  initial  stock 
level.  After  repair  they  will  be  rerouted  into  the 
supply  chain.  There  will  be  no  attrition  for  these 
items . 

Figure  B.22  shows  the  screen,  that  is  displayed 
during  these  computations. 
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Figure  B.22   Compute  Spare  Part  Behavior 

The  spare  part  consumption  will  be  protocolled 
on  the  printer  including: 

-  national  stock  number 

-  initial  stock  level 

-  final  stock  level 

-  minimum  stock  level . 

That  concludes  the  program  QBEHAVE.  The  output 
of  QBEHAVE  offers  an  array  of  alternatives  for  server 
numbers  as  well  as  the  trade-offs  between  waiting  times 
and  the  server  numbers.  From  these  the  decision  maker 
can  chose  his  preferred  option.  The  statistic  of  the 
part  consumption  can  guide  to  decisions  about  the 
respective  stock  levels. 


150 


The   total    number   of   output   pages   can   be 
computed  as: 

(total  number  of  pages)  = 
■  combinations  of  server  numbers  +  1 
-  (number  of  mutations  level  Org  Mn )  * 
(number  of  mutations  level  DS/GS)  * 
(number  of  mutations  level  Depot)  + 
(one  page  for  spare  parts). 
E.g.  Org  Mn  level  ( 5+/ -1 ). servers :  4,5,6 
DS/GS  level   (3+/-1)  servers:  2,3,4 
Depot  level   (1+/-1)  servers:  1,2  (min  1!) 
total  number  of  pages  : 
3*3*2+1-  19  pages 
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APPENDIX  C 
TACTICAL  SIGNS 
Appendix  C   summarizes  the   tactical  signs,  used  in 
the  programs  of  CAESAR.   This  is   the  standard  notation 
for  unit  sizes: 


XXX 

corps 

XX 

division 

X 

brigade 

1 1 

regiment 

1 

battal ion 

company 

The  tactical  signs  are  ordered  with  respect  to  unit 
size  and  the  CAESAR  code  numbers.  This  order  does  not 
imply  any  other  meaning. 

The  display  format  is  as  follows: 


Symbol 


CAESAR  code  number 
description 


Here  are   the  most   commonly  used   tactical  signs  of 
both -the  US  and  GE  Armie-s  [Ref.  7  and  8]  : 


0 
Corps 


Figure  C.l    Corps 
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Mechanized  Infantry  Division 
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Armored  Division 
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Airborne  Division 
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Infantry  Division 
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Air  Assault  Division 


Figure  C.2    Division  Types 
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Infantry  Brigade 
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17 

Air  Cavalry  Combat  Brigade 
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Signal  Brigade 


Figure  C.3   Brigade  Types 
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23 

Aviation  Regiment 
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Aviation  Regiment 


I   J  I   / 


—I 


25 

•Combat    Aviation    Regiment 


Figure    C.4      Regiment    Types    I 
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27 


Military  Intelligence  Regiment 


28 


Field  Artillery  Regiment 
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29 

Cavalry  Regiment  Air  Attack 


30 

Aviation  Group 


Figure  C.5   Regiment  Types  II 
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Airborne    Battalion 
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Mountaineer  Battalion 
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Mechanized  Infantry  Battalion 
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Figure  C.6   Battalion  Types  I 


157 


50 

Air  Cavalry  Squadron 
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Armored  Battalion 
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Figure  C.7   Battalion  Types  II 
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Field  Artillery  Battalion  ( GE ) 
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Medical  Evacuation  Battalion 


Figure  C.8   Battalion  Types  III 
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Maintenance  Battalion 
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Maintenance  Battalion  ( GE ) 
(  Electronic  Equipment  ) 


70 
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Supply  Battalion 
(Special  Ordnance) 
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Military  Police  Battalion 
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Air  Defence  Artillery  Battalion 
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Air  Defence  Artillery  Battalion 
(  Airborne  Division  ) 
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Electronic  Warfare  Battalion 


Figure  C.9   Battalion  Types  IV 
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Signal   Construction  Battalion 
(GE) 
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Feldersatz  Bataillon  ( GE ) 
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Armored  Engineer  Battalion 
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Engineer  Battalion 
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Support  Battalion 

(  Airborne  Div . ) 


Figure  CIO   Battalion  Types  V 
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Support  Battalion 
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Supply  And  Transportation 
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Field  Artillery  Battalion 

(  Mech.  Inf.  Division  ) 
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Field  Artillery  Battalion 
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Figure  C.ll   Battallion  Type  VI 
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Military  Band 
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Military  Police  Company 
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NBC  Company 
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Cavalry  Troop 
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Military  Intelligence  Company 
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HHQ  Corps  Command 
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HHQ  Corps  Maintenance  Command 
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HHQ  Corps  Signal  Command 
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HHQ  Corps  Artillery  Command 


Figure  C.12   Company  Types  I 
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HHQ  Corps  Supply  Command 
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HHQ  Division  Command 
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Figure  C.13   Company  Types  II 
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HHQ  Armored  Brigade 
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Figure  C.14   Company  Types  III 
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Antitank  Company 

(Mount .  Brig. ) 
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Mortar  Company 

(Airborne  Brig. ) 
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Medical  Company 
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Figure  C.15   Company  Types  IV 
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138 

Field  Airport 
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Figure  C.16   Company  Types  V 
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APPENDIX  D 
SOURCE  CODE  OF  CAESAR 
1.  Source  Code  Program  TACMIX 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
KEY 
PI 


program  TACMIX 


JUNE  1987 


This  program  provides  the  graphical  interface  for 
the  user  to  enter,  view  or  modify  the  structure 
of  major  units. 


*  * 

*  * 
H  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 
H  * 
H  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 
H  * 

*  H 

*  H 

*  M 
♦♦  H 


Variable  Directory 
************************************* 

auxiliary  variable 

auxiliary" variable 

counting  variable 

auxiliary  variable 

number  of  units 

error  flag 

auxiliary  variable 

left  margin 

major  unit  code  number 

major  unit  code  number 

auxiliary  variable 

number  of  units  of  a  type 

string  variable  for  filename 

pointer  for  graphic  routine 

mathematical  constant 

unit  code  number 

auxiliary  variable 

type  of  major  unit 

unit  code  number 

auxiliary  variable 

unit  description 

additional  information 

auxiliary  variable 

auxiliary  variable 

auxiliary  variable 

zoom  factor  for  graph 


*  *  *  * 

*  * 

*  *  *  * 

*  * 

*  * 

*  * 

*  * 

*  * 
** 

*  * 

*  * 

*  * 
** 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  *  *  * 


OFF:DIM 
3.141593 


U(40),N(40) 
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startscreen: 

CLS: SCREEN  0 

LOCATE  2,20:  PRINT" **************************** 

LOCATE  3,20:PRINT"***    Program  TACMIX    *****" 

LOCATE  4 ,20: PRINT" ***       Options:       ***" 

LOCATE  5  20  :  PRINT "****************************************************  " 

LOCATE  7, 15: PRINT"-  Create  New  Organisation  (1)" 

LOCATE  9, 15: PRINT"-  View  Existing  Organisation  ....(2)" 

LOCATE  11,15 

PRINT"-  Modify  Existing  Organisation  ..(3)" 

LOCATE  15,15 

PRINT"-  Terminate  Program  (9)" 

LOCATE  24 ,20: INPUT"Enter  Number  of  Choice  :  " ,E 

IF  E<1  OR  E>9  0R(E>3  AND  E<9)  THEN  startscreen 

CLS: SCREEN  2 

ON  E  GOTO  neworg, vieworg, modify , terminate , terminate ,_ 

terminate , terminate , terminate , terminate 
GOTO  startscreen 
terminate : 
SCREEN  0: CLS: END 
REM  *************************************************** 

REM  Branch  Create  a  new  Organization 

REM 

neworg: 

P1-0:GOSUB  pickunit:CLS:LL=60:X=l:Y=l 

A-270:B-5:GOSUB  tacsign 

IF  VAL(MTJ$)  =  0  THEN  Q-l  ELSE  IF  VAL(MU$)<7_ 

THEN  Q=ll  ELSE  Q=23 
11: 
FOR  B=LL  TO  161  STEP  60 

FOR  A-0  TO  600  STEP  102 

GOSUB  tacsign:Q=Q+l: IF  Q>144  THEN  F-l : 
GOTO  13  ELSE  12 
12: 

NEXT  A 
NEXT  B 
13: 

LOCATE  23,1 
PRINT" 
LOCATE  23,1 

INPUT"enter  unit  code  number   (ENTER  for   next  frame)  : 
"  ,U$ 

IF  U$=""   THEN  14  ELSE  IF  VAL(U$)<0  OR  VAL(U$)>144  THEN 
13 

U(X)=VAL(U$) 
LOCATE  23,1 

PRINT"  " 

LOCATE  23,1 

INPUT"enter  number  of  these  units  (default=l)  :  ",U$ 
LOCATE  23,1 
PRINT"  " 
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U=VAL(U$):IF  U>1  THEN  N(X)=U  ELSE  N(X)=1 

INCR  X: LOCATE  23,1 

INPUT"another  unit  from  this  frame  (y/n)  ";U$ 

IF  U$="y"  OR  U$="Y"  THEN  11 

14: 

IF  Q<145  THEN  CLS : LL=5 : GOTO  11 

DECR  X-.GOSUB  sort 

OPEN  "o",l,N$ 

WRITE#1 , VAL ( MU$ ) , X 

FOR  Y=l  TO  X:WRITE#1,U(Y) ,N(Y):NEXT  Y 

CLOSE  #1 

GOTO  startscreen 

REM 

REM  Branch  View  Existing  Organisation 

REM 

REM 

vieworg: 

Pl=0:ZF=l/6:GOSUB  pickunit:CLS 

FOR  Y=l  TO  40:U(Y)=0:N(Y)=0:NEXT  Y 

LOCATE  23,1 

PRINT" 

OPEN  "i",l,N$ 

INPUT#1,MU,C 

FOR  Y=l  TO  C:INPUT#1,U(Y) ,N(Y):NEXT  Y 

CLOSE  #1 

A=270:B=5:Q=MU:W=1:P1=1:G0SUB  tacsign : LL=65 

15: 

FOR  B=LL  TO  159  STEP  60 

FOR  A=0  TO  600  STEP  125 

Q=U(W):E$=RIGHT$(STR$(N(¥) ) ,1) 
GOSUB  tacsign:INCR  W:IF  W>C  THEN  16 

NEXT  A 
NEXT  B 
16: 

LOCATE  23, 33: PRINT  "Press  any  Key " : E$=INPUT$( 1 ) 
CLS: IF  U(W)>0  THEN  LL=5:GOTO  15  ELSE  GOTO  startscreen 
REM  *************************************************** 

REM  Branch  Modify  an  Organization 

REM 

modify: 

P1=0:ZF=1/6:GOSUB  pickunit:CLS 

FOR  Y-l  TO  40:U(Y)=0:N(Y)=0:NEXT  Y 

LOCATE  23,1 

PRINT" 
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18: 

CLS:OPEN  "i",l,N$ 

INPUT#1,MU,C 

FOR  Y-l  TO  C:INPUT#1,U(Y) ,N(Y):NEXT  Y 

CLOSE  #1 

A-27  0 :  B-5  :  E$=  "  1 "  :  Q-MU :  W-l :  Pl-1 :  GOSUB  tacsign  :  LL-65 

19: 

FOR  B=LL  TO  159  STEP  60 
FOR  A=0  TO  600  STEP  125 

Q-U(W) :E$=RIGHT$(STR$(N(W) ) ,1 ) :GOSUB  tacsign 
INCR  W:IF  W>C  THEN  110 
NEXT  A 
NEXT  B 

110: 

LOCATE  23,33 

PRINT  "Any  Modifications  ?" :E$-INPUT$( 1 ) 

IF  E$-"y"  OR  E$-"Y"  THEN  111  ELSE  119 

LOCATE  23,5 

111: 

PRINT  "Which  Modification  ?  ( 0-erase , l=change  number"; 

PRINT  "  of  units, 2-add  a  unit ) " : E$-INPUT$( 1 ) 

LOCATE  23,1 

FOR  Y-l  TO  70: PRINT  "  ";:NEXT  Y: PRINT 

112: 

LOCATE  23, 33: PRINT  "Which  Unit  Number  ";: INPUT  U 

E=VAL(E$) 

IF  E=0  THEN  113  ELSE  IF  E-l  THEN  116_ 

ELSE  IF  E-2  THEN  118  ELSE  112 

113: 

FOR  Y-l  TO  C:IF  U(Y)-U  THEN  114  ELSE  NEXT  Y:GOTO  18 

114: 

IF  Y<C  THEN_ 

FOR  X-Y  TO  C-1:U(X)=U(X+1):N(X)-N(X+1):NEXT  X:_ 
DECR  C:GOTO  115 
U(C  )-0:N(C )  =  0:C  =  C-1 

115: 

KILL  N$:0PEN  "o" ,1,N$ 

WRITE#1  MU  C 

FOR  Y=l'To'c:WRITE#l,U(Y),N(Y):NEXT  Y 

CLOSE  l:GOTO  18 
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116: 

LOCATE  23,5 

FOR  Y=l  TO  70: PRINT  "  " ;:NEXT  Y: PRINT 

FOR  Y=l  TO  C 

IF  U(Y)=U  THEN  117  ELSE  NEXT  Y 

GOTO  18 

117: 

LOCATE  23,33 

INPUT"Enter  new  number  of  units  ",N(Y) 

GOTO  115 

118: 

LOCATE  23,5 

FOR  Y=l  TO  70: PRINT  "  ";:NEXT  Y: PRINT 

LOCATE  23,33: INPUT"Enter  number  of  new  units  ",N 

C=C+l:U(C)-U:N(C)=N:X-C:GOSUB  sort:GOTO  115 

119: 

CLS:IF  U(¥)>0  THEN  LL=5:G0T0  19  ELSE  GOTO  startscreen 

GOTO  startscreen 

SCREEN  0:CLS:END 

REM  *************************************************** 
REM 

REM  Pick  Major  Unit 
REM 

pickunit : 
REM 

Q-0:ST-102:ZF=l/5 
FOR  B-5  TO  161  STEP  60 
FOR  A=0  TO  600  STEP  ST 

GOSUB  tacsign 

INCR  Q 

IF  Q>20  THEN  17 
NEXT  A 
NEXT  B 

17: 

LOCATE  24,1 

INPUT"enter  major  unit  code  number  :  " ,MU$ 

Q-VAL(MU$) 

IF  Q=0  THEN  N$-"corps" : RETURN 

IF  Q<-6  THEN  N$="div"+MU$ : RETURN 

IF  Q<=19  THEN  N$="brig"+MU$ : RETURN 

PRINT  "input  error" : GOTO  17 

RETURN 

REM 

REM  ************************************************** 
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REM  Subroutine  Sort  of  numerical  Variables 

REM  input  arrays     :  u(x),n(x) 

REM  input  parameter  :  x 

REM 

sort : 

REM 

FOR  A-l  TO  X 

FOR  B-l  TO  X-l 

IF  U(B)-U(B+1)  AND  U(B)<1000  THEN 

FOR  C=B  TO  X-1:U(C)=U(C+1) :N(CT=N(C+1 ) :NEXT  C 
U(X)=9999:DECR  X 
IF  U(B)>U(B+1)  THEN  H-U( B+l ) :U( B+l )-U( B ) :_ 
TJ(B)-H:H-N(B+1):N(B+1)-N(B):N(B)-H 
NEXT  B 
NEXT  A 
RETURN 
R EM  ************************************************ 
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Subroutine  to  draw  one  Tactical  Sign 


*  H  H  H   M  H 


REM  *** 

REM 

REM  necc.  input:  zoom  factor  0  <  ZF  <=  1 

REM horizl.  start  coord.  0  <  A  <  550 

REM  vertcl .  start  coord.  0  <  B  <  150 

REM  value  for  constant    PI=3. 141593 

REM  value  for  unit  type   0  <=  Q  <=  144 

REM 

tacsign: 

REM 

IF  Q>144  THEN  RETURN 

IF  Q>121  THEN  companies2 

IF  Q>100  THEN  companiesl 

IF  Q>40  THEN  battalions 

IF  Q>20  THEN  regiments 

IF  Q>10  THEN  brigades 

IF  Q=0  THEN  GOSUB  0 : GOTO  box 

GOTO  box 

GOTO  box 

GOTO  box 

GOTO  box 

GOTO  box 

GOTO  box 


1 
2 
3 
4 
5 
6 


IF  Q=l  THEN  GOSUB 

IF  Q=2  THEN  GOSUB 

IF  Q=3  THEN  GOSUB 

IF  Q=4  THEN  GOSUB 

IF  Q=5  THEN  GOSUB 

IF  Q=6  THEN  GOSUB 

IF  Q=7  THEN  Q=Q+1 

IF  0=8  THEN  Q=Q+1 

IF  Q=9  THEN  Q=Q+1 

IF  Q  =  10  THEN  RETURN 

brigades : 

IF  Q-ll  THEN  GOSUB  11: GOTO  box 

IF  Q-12  THEN  GOSUB  12: GOTO  box 

IF  0=13  THEN  GOSUB  13: GOTO  box 

IF  Q=14  THEN  GOSUB  14: GOTO  box 

IF  Q=15  THEN  GOSUB  15 -.GOTO  box 

IF  0=16  THEN  GOSUB  16: GOTO  box 

IF  Q=17  THEN  GOSUB  17: GOTO  box 

IF  0=18  THEN  Q=Q+1 

IF  Q=19  THEN  GOSUB  19: GOTO  box 

IF  Q=20  THEN  RETURN        -  . 

regiments : 

IF  Q=21  THEN  GOSUB  21: GOTO  box 

IF  Q=22  THEN  GOSUB  22: GOTO  box 

IF  Q=23  THEN  GOSUB  23:G0T0  box 

IF  Q=24  THEN  GOSUB  24: GOTO  box 

IF  Q=25  THEN  GOSUB  25: GOTO  box 

IF  Q=26  THEN  GOSUB  26: GOTO  box 

IF  0=27  THEN  GOSUB  27: GOTO  box 

IF  Q=28  THEN  GOSUB  28: GOTO  box 

IF  Q=29  THEN  GOSUB  29: GOTO  box 

IF  Q-30  THEN  GOSUB  30: GOTO  box 

IF  Q-31  THEN  Q  =  Q  +  1 

IF  Q=32  THEN  Q=Q+1 
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IF  0=33  THEN  Q=Q+1 
IF  Q=»34  THEN  Q=Q+1 
IF  Q=35  THEN  Q=Q+1 
IF  Q  =  36  THEN  Q=Q+1 
IF  Q-37  THEN  Q=Q+1 
IF  0=38  THEN  Q-Q+l 
IF  0=39  THEN  Q=Q+1 
IF  0=4  0  THEN  RETURN 
battalions : 

IF  Q-41  THEN  GOSUB  41: GOTO  box 

IF  Q=42  THEN  GOSUB  42: GOTO  box 

IF  Q=43  THEN  GOSUB  43: GOTO  box 

IF  0=44  THEN  GOSUB  44: GOTO  box 

IF  Q=45  THEN  GOSUB  45: GOTO  box 

IF  Q  =  46  THEN  GOSUB  46: GOTO  box 

IF  0=47  THEN  GOSUB  47: GOTO  box 

IF  Q=48  THEN  GOSUB  48: GOTO  box 

IF  0  =  49  THEN  GOSUB  49: GOTO  box 

IF  Q=50  THEN  GOSUB  50: GOTO  box 

IF  0=5 1  THEN  GOSUB  51: GOTO  box 

IF  Q-52  THEN  GOSUB  52: GOTO  box 

IF  0=53  THEN  GOSUB  53: GOTO  box 

IF  0=54  THEN  GOSUB  54:  GOTO  box 

IF  0=55  THEN  GOSUB  55: GOTO  box 

IF  0=56  THEN  GOSUB  56: GOTO  box 

IF  0  =  57  THEN  GOSUB  57: GOTO  box 

IF  Q  =  58  THEN  GOSUB  58: GOTO  box 

IF  Q=59  THEN  GOSUB  59: GOTO  box 

IF  0=60  THEN  GOSUB  60: GOTO  box 

IF  Q=61  THEN  GOSUB  61: GOTO  box 

IF  Q=62  THEN  GOSUB  62: GOTO  box 

IF  Q=63  THEN  GOSUB  63: GOTO  box 

IF  0=64  THEN  GOSUB  64: GOTO  box 

IF  Q=65  THEN  GOSUB  65: GOTO  box 

IF  Q  =  66  THEN  GOSUB  66 -.GOTO  box 

IF  Q=67  THEN  GOSUB  67: GOTO  box 

IF  Q=68  THEN  GOSUB  68: GOTO  box 

IF  Q=69  THEN  GOSUB  69: GOTO  box 

IF  Q=70  THEN  GOSUB  70: GOTO  box 

IF  0=71  THEN  GOSUB  71: GOTO  box 

IF  Q=72  THEN  GOSUB  72: GOTO  box 

IF  Q=73  THEN  GOSUB  73: GOTO  box 

IF  Q-74  THEN  GOSUB  74: GOTO  box 

IF  Q»75  THEN  GOSUB  75: GOTO  box 

IF  Q=76  THEN  GOSUB  76: GOTO  box 

IF  Q=77  THEN  GOSUB  77: GOTO  box 

IF  Q=78  THEN  GOSUB  78: GOTO  box 

IF  Q=79  THEN  GOSUB  79: GOTO  box 

IF  Q=80  THEN  GOSUB  80: GOTO  box 

IF  Q=81  THEN  GOSUB  81: GOTO  box 

IF  Q=82  THEN  GOSUB  82 : GOTO  box 
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IF  Q=83  THEN  GOSUB  83 
IF  Q=84  THEN  GOSUB  84 
IF  Q=85  THEN  GOSUB  85 
IF  Q=86  THEN  GOSUB  86 
IF  Q=87  THEN  GOSUB  87 
IF  Q=88  THEN  GOSUB  88 
IF  Q=89  THEN  GOSUB  89 
IF  Q=90  THEN  Q=Q+1 
IF  Q=91  THEN  Q=Q+1 
IF  Q=92  THEN  Q=Q+1 
IF  Q=93  THEN  Q=Q+1 
IF  Q=94  THEN  Q=Q+1 
IF  0  =  95  THEN  Q=Q+1 
IF  Q=96  THEN  0=0+1 
IF  0=97  THEN  Q=Q+1 
IF  Q  =  98  THEN  Q=Q+1 
IF  Q=99  THEN  Q=Q+1 
IF  0=100  THEN  RETURN 
companiesl : 
IF  Q=101  THEN  GOSUB  1 
0=102  THEN  GOSUB  1 
Q=103  THEN  GOSUB  1 
IF  Q=104  THEN  GOSUB  1 
IF  Q=105  THEN  GOSUB  1 
Q=106  THEN  GOSUB  1 
0=107  THEN  GOSUB  1 
IF  Q  =  108  THEN  GOSUB  1 
IF  0=109  THEN  GOSUB  1 
IF  Q-110  THEN  GOSUB  1 
IF  Q=lll  THEN  GOSUB  1 
IF  Q=112  THEN  GOSUB  1 
IF  0=113  THEN  GOSUB  1 
IF  Q=114  THEN  GOSUB  1 
IF  0=115  THEN  GOSUB  1 
IF  Q-116  THEN  GOSUB  1 
IF  Q=117  THEN  GOSUB  1 
IF  0=118  THEN  GOSUB  1 
IF  Q=119  THEN  GOSUB  1 
IF  Q=120  THEN  GOSUB  1 
IF  Q=121  THEN  GOSUB  1 
companles2 : 
IF  Q=122  THEN  GOSUB  1 
IF  Q=123  THEN  GOSUB  1 
IF  Q=124  THEN  GOSUB  1 
IF  Q=125  THEN  GOSUB  1 
IF  0=126  THEN  GOSUB  1 
IF  Q=127  THEN  GOSUB  1 
IF  Q-128  THEN  GOSUB  1 
IF  0=129  THEN  GOSUB  1 
IF  Q-130  THEN  GOSUB  1 
IF  0=131  THEN  GOSUB  1 


GOTO  box 
GOTO  box 
GOTO  box 
GOTO  box 
GOTO  box 
GOTO  box 
GOTO  box 


IF 
IF 


IF 
IF 


01: GOTO 
02: GOTO 
03: GOTO 
04: GOTO 
05: GOTO 
06: GOTO 
07: GOTO 
08: GOTO 
09: GOTO 
10: GOTO 
11: GOTO 
12: GOTO 
13: GOTO 
14: GOTO 
15: GOTO 
16: GOTO 
17: GOTO 
18: GOTO 
19: GOTO 
20: GOTO 
21: GOTO 

22: GOTO 
23: GOTO 
24: GOTO 
25: GOTO 
26: GOTO 
27: GOTO 
28: GOTO 
29  .-GOTO 
30: GOTO 
31: GOTO 


box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 

box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
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IF  0=132  THEN  GOSUB  132: GOTO  box 
IF  0=133  THEN  GOSUB  133: GOTO  box 
IF  0=134  THEN  GOSUB  134: GOTO  box 
IF  Q=135  THEN  GOSUB  135: GOTO  box 
IF  0=136  THEN  GOSUB  136: GOTO  box 
IF  Q=137  THEN  GOSUB  137: GOTO  box 
IF  Q  =  138  THEN  GOSUB  138: GOTO  box 
IF  0=139  THEN  GOSUB  139: GOTO  box 
IF  0=140  THEN  GOSUB  140: GOTO  box 
IF  Q=141  THEN  GOSUB  141: GOTO  box 
IF  Q=142  THEN  GOSUB  142: GOTO  box 
IF  Q=143  THEN  GOSUB  143: GOTO  box 
IF  Q=144  THEN  GOSUB  144: GOTO  box 
RETURN 
$segment 

REM   ****************************** 

box: 
LINE  ( 
IF  U-l 


10*ZF+A,10*ZF+B)-(360 

THEN  LINE(155*ZF+A,1 

LINE(175»ZF+A,1 

LINE(195*ZF+A,1 

LINE(215»ZF+A,1 

IF  U=2  THEN  LINE(175»ZF+A,1 

LINE(195»ZF+A,1 

IF  U=3  THEN  LINE(165»ZF+A,1 

LINE(185*ZF+A,1 

LINE  (205»ZF+A, 

IF  U=4  THEN  LINE(175»ZF+A,1 

LINE  (195»ZF+A, 

THEN  LINE(185*ZF+A,1 

1  THEN  LOCATE  B/8+17* 

"1"  THEN  120  ELSE  PR I 


U=5 

Pl« 

E$= 


*ZF+A,120*ZF+B) ,  ,B 
»ZF+B)-(175*ZF+A,8* 
»ZF+B)-(155*ZF+A,8* 
»ZF+B)-(215*ZF+A,8* 
*ZF+B)-(195*ZF+A,8* 
*ZF+B)-(195*ZF+A,8* 
*ZF+B)-(175*ZF+A,8* 
*ZF+B)-(165*ZF+A,7* 
*ZF+B)-(185*ZF+A,7* 

1  *ZF+B  )  -  (  2  0 5  * ZF+A  ,  7 
*ZF+B)-(175»ZF+A,7* 
1 *ZF+B  )  - ( 1 9 5  *ZF+A , 7 
* ZF+B  )  - ( 185  *ZF+A , 7  * 
ZF,A/8+54*ZF 
NT  E$ 


******** 

ZF+B): 

ZF+B): 

ZF+B): 

ZF+B) 

ZF+B): 

ZF+B) 

ZF+B  )  : 

ZF+B): 

*ZF+B) 

ZF+B)  : 

*ZF+B) 

ZF+B) 

B/ 8+24 »ZF, A/ 8+18*ZF: PRINT  Q : RETURN 


IF 

IF 

IF 

120: 

LOCATE 

REM 

******************************************************* 

u4  : 

L INE ( 1 0 ■ ZF+A , 1 0 * ZF+B )-( 36 0 * ZF+A , 1 2 0 * ZF+B ) 

LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 

RETURN 

REM 

******************************************************* 
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0: 

REM  corps  #0 

U=0:U1$="C0RPS" :U2$="" 

LINE(130*ZF+A,ZF+B)-(150*ZF+A,7*ZF+B) 

LINE(150*ZF+A,ZF+B)-(130*ZF+A,7*ZF+B) 

LINE(175*ZF+A,ZF+B)-(195*ZF+A,7*ZF+B) 

LINE(195*ZF+A,ZF+B)-(175»ZF+A,7*ZF+B) 

LINE(220*ZF+A,ZF+B)-(24  0*ZF+A,7*ZF+B) 

LINE(220*ZF+A,7*ZF+B)-(240*ZF+A,ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) ,  ,B 

RETURN 

1: 

REM  mechanized  infantery  division  #1 

U=1:U1$= "MECHANIZED  INFANTRY  DIVISION" :U2$=" " 

CIRCLE  (90*ZF+A,65*ZF+B)  ,  48»ZF  ,  1  ,  9  0*PI  /  180  ,  270  *PI  /  180 

CIRCLE(280*ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 

LINE  (90*ZF+A,4  5»ZF+B)-(280*ZF+A,4  5*ZF+B) 

LINE  (90»ZF+A,85»ZF+B)-(280*ZF+A,85»ZF+B) 

GOSUB  u4 

RETURN 

2: 

REM  armored   division   #2 

U=1:U1$= "ARMORED  DIVISION" :U2$=" " 

CIRCLE  (90*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  90*PI  /  180  ,  270 *PI  /  180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48»ZF  ,  1  ,  270  *PI/  180  ,  90*PI  /  180 

LINE  (90*ZF+A,45*ZF+B)-(280*ZF+A,45*ZF+B) 

LINE  (90*ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 

LINE  (10*ZF+A,10»ZF+B)-(360*ZF+A,120*ZF+B),  ,B 

RETURN 

3: 

REM  mountaineer  division  #3 

Ul$= "MOUNTAINEER  DIVISION" :U2$=" " 

GOSUB  u4 

LINE  (10*ZF+A,10*ZF+B)-(360»ZF+A,120*ZF+B) ,  ,B 

LINE(155»ZF+A,120»ZF+B)-(185*ZF+A,100*ZF+B) 

LINE(  215*ZF+A  ,  120*ZF+B  )-( 185*ZF+A  ,  100*ZF+B  ) 

PAINT(  185*ZF+A,  114»ZF+B  ) 

RETURN 

4: 

REM  airborne   division  #4 

U-l :U1$="AIRB0RNE  DIVISION" : U2$=" " 

CIRCLE(130»ZF+A,12  0*ZF+B) , 50»ZF,1 , 15 *P 1/180 ,165*PI/180 

CIRCLE(240»ZF+A,120*ZF+B)  ,  5  0»ZF  ,  1  ,  15*PI  /  180  ,  165  *PI  /  180 

LINE(178*ZF+A,115*ZF+B)-(192»ZF+A,H5*ZF+B) 

GOSUB  u4 

RETURN 
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5: 

REM  infantry  division  #5 
U=1:U1$=" INFANTRY  DIVISION" : U2$=" " 
GOSUB  u4 
RETURN 

6: 

REM  air  assault  division  #6 
U-1:U1$="AIR  ASSAULT  DIVISION" : U2$=" " 
LINE(14  5*ZF+A,2  0*ZF+B)-(185*ZF+A,40*ZF+B) 
LINE(22  5*ZF+A,2  0*ZF+B)-(185*ZF+A,40*ZF+B) 
LINE(185*ZF+A,4  0*ZF+B)-(185*ZF+A,100*ZF+B) 
LINE(145*ZF+A,100*ZF+B)-(225*ZF+A,100*ZF+B) 
RETURN 

11: 

REM  mechanized  infantery  brigade  #11 

U=2:U1$="MECHANIZED  INFANTRY  BRIGADE" :U2$=" " 

CIRCLE  (90*ZF+A,65»ZF+B)  ,  48*ZF,1 ,  90*PI/180  ,  270*PI/180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  270 *PI/  180  ,  90*PI  /  180 

LINE  (90*ZF+A,45*ZF+B)-(280»ZF+A,45*ZF+B) 

LINE  (90*ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 

GOSUB  u4 

RETURN 

12: 

REM  armored   brigade    #12 

U«2:U1$-"ARM0RED  BRIGADE" :U2$-"" 

CIRCLE  (90*ZF+A,65*ZF+B)  ,48«ZF,  1 ,  90*PI/180  ,270*PI/180 

CIRCLE(280*ZF+A,6  5*ZF+B)  , 48»ZF , 1 , 270»PI/ 180 , 90*PI / 180 
LINE  (90*ZF+A,4  5»ZF+B)-(280*ZF+A,4  5*ZF+B) 
LINE  (90»ZF+A,85*ZF+B)-(280»ZF+A,85»ZF+B) 
RETURN 

13: 

REM  mountaineer  brigade  #13 

U«2:U1$= "MOUNTAINEER  BRIGADE" : U2$=" " 

GOSUB  u4 

LINE  (10*ZF+A,10»ZF+B)-(360»ZF+A,120*ZF+B)  ,  ,B 

LINE(  152*ZF+A,12  0»ZF+B)-(  182»ZF+A  ,  100*ZF+B  ) 

LINE(212*ZF+A,120*ZF+B )- ( 182*ZF+A , 100*ZF+B ) 

PAINT(165*ZF+A,114*ZF+B  ) 

RETURN 

14: 

REM  airborne  brigade  #14 

U=2:U1$="AIRB0RNE  BRIGADE" : U2$=" " 

CIRCLE(130*ZF+A,12  0*ZF+B) ,50*ZF,1, 15 *P 1/180, 165*PI/ 180 

CIRCLE(24  0*ZF+A,120*ZF+B)  , 50»ZF,1  ,  15*PI  /  180  ,  165  *PI  /  180 

LINE(178*ZF+A,115*ZF+B)-(192»ZF+A,115*ZF+B) 

GOSUB  u4 

RETURN 
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15: 

REM  infantry  brigade  #15 

U=2:U1$=" INFANTRY  BRIGADE" : U2$=" " 

GOSUB  u4 

RETURN 

16: 

REM  combat  aviation  brigade  #16 
U=2:U1$="C0MBAT  AVIATION  BRIGADE" :U2$=" " 
CIRCLE(100*ZF+A,65*ZF+B)  ,  35*ZF  ,  1  ,  56*PI  /  180  ,  304  *PI  /  180 
CIRCLE(270*ZF+A,6  5*ZF+B)  ,  35  *ZF  ,  1  ,  236 *P I  /  180  ,  124 *P I  /  180 
LINE(  120*ZF+A  ,  5  2*ZF+B  )-(  25  0*ZF+A,  78*ZF+B  ) 
LINE(120*ZF+A,78*ZF+B)-(25  0*ZF+A,52*ZF+B) 
PAINT(100*ZF+A,65*ZF+B)  ,  1 :  PAINT  (  270  *ZF+A  ,  65  *ZF+B  )  ,1 
RETURN 

17: 

REM  air  cav  cbt  brig  #17 

U=2:U1$="AIR  CAVALRY  COMBAT  BRIGADE"  :  U2$=»"  " 

CIRCLE(100»ZF+A,65*ZF+B)  ,  35*ZF , 1 , 56*PI/ 180 , 304*PI/ 180 

CIRCLE(270*ZF+A,65*ZF+B)  ,35*ZF,  1 ,236*PI/180  ,  124*PI/180 

LINE(120*ZF+A,52»ZF+B)-(25  0*ZF+A,78*ZF+B) 

LINE(120*ZF+A,78*ZF+B)-(250»ZF+A,52*ZF+B) 

LINE(  10*ZF+A  ,  120*ZF+B  )-( ^360*ZF+A  ,  10*ZF+B  ) 

PAINT(100*ZF+A,65*ZF+B),1:PAINT(270*ZF+A,65*ZF+B)  ,1 

RETURN 

19: 

REM   signal  brigade  #19 

U=2:U1$="SIGNAL  BRIGADE" :U2$=" " 

LINE  (10*ZF+A,10*ZF+B)-(185*ZF+A,80*ZF+B) 

LINE(185*ZF+A,5  0*ZF+B)-(36  0*ZF+A,120*ZF+B) 

LINE(  185»ZF+A,80*ZF+B  )-(  185*ZF+A,  5  0*ZF+B  ) 

RETURN 
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21: 

REM  anti  aircraft  regiment  (corps)  #21 

U1$="ANTI  AIRCRAFT  DEFENCE  REGIMENT" : U2$=" " 

U=3:CIRCLE 

(207*ZF+A,5  0*ZF+B)  ,  14  0*ZF  ,  1  ,  138*PI/  180  ,  223*PI  /  180 

CIRCLE 

(186*ZF+A,175*ZF+B)  ,  220  *ZF  ,  1  ,  39*PI/  180  ,  142 *P I  /  180 

CIRCLE  (14  0*ZF+A,105»ZF+B)  ,  14*ZF,1  ,  9  0*PI  /  180  ,  27  0»PI  /  180 

CIRCLE  (22  0*ZF+A,105*ZF+B)  ,  14*ZF  ,  1  ,  270  *PI/  180  ,  90*PI  /  180 

LINE(14  0*ZF+A,98*ZF+B)-(220*ZF+A,98*ZF+B) 

LINE  (140*ZF+A,112»ZF+B)-(220»ZF+A,112*ZF+B) 

LINE  (76*ZF+A,4  5*ZF+B)-(206»ZF+A,4  5*ZF+B) 

LINE  (156»ZF+A,65*ZF+B)-(286*ZF+A,65*ZF+B) 

LINE  (206*ZF+A,45*ZF+B)-(156*ZF+A,65»ZF+B) 
LINE  (182*ZF+A,101»ZF+B)-(168»ZF+A,104*ZF+B) 
LINE  (182»ZF+A,101»ZF+B)-(196»ZF+A,104*ZF+B) 

LINE  (182»ZF+A,106*ZF+B)-(168*ZF+A,109*ZF+B) 
LINE  (182*ZF+A, 106*ZF+B)-(196*ZF+A, 109*ZF+B) 
LINE(130*ZF+A,15*ZF+B)-(150*ZF+A,25*ZF+B) 
LINE(150*ZF+A,15»ZF+B)-(130*ZF+A,25*ZF+B) 
LINE(175»ZF+A,15»ZF+B)-(195*ZF+A,2  5»ZF+B) 
LINE(195»ZF+A,15*ZF+B)-(175*ZF+A,25*ZF+B) 
LINE(22  0*ZF+A,15»ZF+B)-(24  0»ZF+A,25*ZF+B) 
LINE(22  0*ZF+A,25*ZF+B)-(24  0»ZF+A,  15»ZF+B) 
RETURN 

22: 

REM  anti  aircraft  regiment  (divisional)  #22 

U1$-"ANTI  AIRCRAFT  DEFENCE  REGIMENT" :U2$-" " 

U-3 : CIRCLE 

(2  07*ZF+A,5  0*ZF+B)  , 14  0»ZF,1  ,  137 *P  1/180  ,  223 *P  1/180 

CIRCLE 

(186*ZF+A,17  5»ZF+B)  , 220»ZF,1  ,  39*PI/  180  ,  142*PI  /  180 

CIRCLE  (  14  0»ZF+A,105»ZF+B)  ,  14»ZF,1  ,  90*PI  /  180  ,  270*PI  /  180 

CIRCLE  (22  0*ZF+A,105»ZF+B)  ,  14*ZF,  1 ,27Q*PI/180  ,  90*PI/180 

LINE(140*ZF+A,98»ZF+B)-(22  0*ZF+A,98*ZF+B) 

LINE  (140*ZF+A,112»ZF+B)-(220*ZF+A,112»ZF+B) 

LINE  (76*ZF+A,45»ZF+B)-(206»ZF+A,45*ZF+B) 

LINE  (156»ZF+A,65»ZF+B)-(286»ZF+A,65*ZF+B) 

LINE  (206*ZF+A,45*ZF+B)-(156*ZF+A,65*ZF+B) 

CIRCLE(182*ZF+A,105*ZF+B  )  ,10*ZF,3 

PAINT (  186*ZF+A,105*ZF+B)  ,1,3 

LINE(150*ZF+A,15*ZF+B)-(170»ZF+A,25*ZF+B) 

LINE(170»ZF+A,15»ZF+B)-(150*ZF+A,25*ZF+B) 

LINE(2  00*ZF+A,15*ZF+B)-(22  0*ZF+A,25*ZF+B) 

LINE(200»ZF+A,25*ZF+B)-(220*ZF+A,15*ZF+B) 

RETURN 
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23: 

REM  aviation  regiment  #  23 

U=3 : Ul$- "AVIATION  REGIMENT " : U2$= " " 

CIRCLE(100*ZF+A,100*ZF+B)  ,  35*ZF  ,  1  ,  56*PI/  180  ,  304 »P I  /  180 

CIRCLE(270*ZF+A,100*ZF+B) , 35*ZF , 1 , 236 *PI/ 180 , 124 *PI / 180 

LINE(120*ZF+A,87*ZF+B)-(25  0*ZF+A,113*ZF+B) 

LINE(  120*ZF+A,  113*ZF+B  )-(  25  0»ZF+A , 87*ZF+B  ) 

PAINT(100*ZF+A,100*ZF+B) ,1 

PAINT(270»ZF+A,100»ZF+B)  ,1 

CIRCLE(185*ZF+A,5  0*ZF+B)  ,70*ZF 

LINE  (135*ZF+A,31*ZF+B)-(237*ZF+A,69*ZF+B) 

LINE(136*ZF+A,69*ZF+B)-(235*ZF+A,31*ZF+B) 

LINE  (185*ZF+A,22*ZF+B)-(185*ZF+A,78*ZF+B) 

LINE  ( 1 1 5  * ZF+A  ,50** ZF+B  )  -  (  2 5  5  » ZF+A  ,50** ZF+B  ) 

LINE  (30*ZF+A,10*ZF+B)-(30»ZF+A,120*ZF+B) 

RETURN 

24: 

REM  aviation  regiment  #24 

U=3 : Ul$-"AVIATION  REGIMENT" : U2$= " " 

CIRCLE(100*ZF+A,100*ZF+B)  ,  35»ZF  ,  1  ,  56*PI/  180  ,  304 *PI/  180 

CIRCLE (  270 *ZF+A,1 00 *ZF+B  )  ,  35*ZF  ,  1  ,  236 *PI/  180  ,  124 *PI  /  180 

LINE(120*ZF+A,87»ZF+B)-(250*ZF+A,113*ZF+B) 

LINE(120*ZF+A,H3*ZF+B)-(25  0*ZF+A,87*ZF+B) 

PAINT(100*ZF+A,100*ZF+B)  ,  1 :  PAINT(  270*ZF+A  ,  100*ZF+B  )  ,1 

CIRCLE(180*ZF+A,50*ZF+B)  ,70»ZF 

LINE  (130*ZF+A,31*ZF+B)-(232*ZF+A,69*ZF+B) 

LINE(131*ZF+A,69*ZF+B)-(230*ZF+A,31*ZF+B) 

LINE  (180*ZF+A,22*ZF+B)-(180*ZF+A,78*ZF+B) 

LINE  (110*ZF+A,50*ZF+B)-(250*ZF+A,50*ZF+B) 

RETURN 

25: 

REM  combat  aviation  regiment  #25 

U-3:U1$-" COMBAT  AVIATION  REGIMENT" :U2$=" " 

CIRCLE(100»ZF+A,100»ZF+B)  ,  35*ZF  ,  1  ,  56*PI  /  180  ,  304 *PI/  180 

CIRCLE (  27 0*ZF+A,1 00 *ZF+B)  ,  35»ZF  ,  1  ,  236 *PI/  180  ,  124  »PI  /  180 

LINE(12  0*ZF+A,87*ZF+B)-(25  0*ZF+A,113*ZF+B) 

LINE(120»ZF+A,113*ZF+B)-(25  0*ZF+A,87*ZF+B) 

LINE(10*ZF+A,120»ZF+B)-(  180* ZF+A , 10*ZF+B ) 

LINE(360*ZF+A,120*ZF+B)-( 180»ZF+A,10*ZF+B  ) 

PAINT (  100*ZF+A,100*ZF+B  )  ,1  :  PAINT (  27  0 *ZF+A  ,  100** ZF+B  )  ,1 

LINE(14  5»ZF+A,60*ZF+B)-(185*ZF+A,4  0*ZF+B) 

LINE(185*ZF+A,4  0»ZF+B)-(22  5»ZF+A,6  0»ZF+B) 

LINE(14  5*ZF+A>80*ZF+B)-(185*ZF+A,60*ZF+B) 

LINE(185»ZF+A,60»ZF+B)-(225*ZF+A,80»ZF+B) 

RETURN 


182 


26: 

REM  armored • cavalry  regiment  #26 

U=3:U1$= "ARMORED  CAVALRY  REGIMENT" : U2$=" " 

CIRCLE  (90*ZF+A,65*ZF+B) ,48*ZF,1 , 90*PI/180 , 270*PI/180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48*ZF  ,  1 ,  270 *PI/  180  ,  90*PI/  180 

LINE ( 9 0 *ZF+A , 4 5 * ZF+B ) - ( 280 * ZF+A , 4 5  * ZF+B ) 

LINE(90*ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 
LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 

RETURN 

27: 

REM  military  intelligence  regiment  #27 

U=3:U1$="MILITARY  INTELLIGENCE  REGIMENT" :U2$=" " 

LINE(220*ZF+A,30*ZF+B)-(26  0*ZF+A,30*ZF+B) 

LINE(220*ZF+A,100»ZF+B)-(26  0*ZF+A,10  0*ZF+B) 

LINE(80»ZF+A,30»ZF+B)-(80»ZF+A,100*ZF+B) 

LINE(160*ZF+A,30»ZF+B)-(160»ZF+A,100*ZF+B) 

LINE(240*ZF+A,30*ZF+B)-(240*ZF+A,100*ZF+B) 

LINE  (80»ZF+A,30»ZF+B)-(120*ZF+A,60*ZF+B) 

LINE(  120*ZF+A,60*ZF+B  )-(  16  0*ZF+A , 30*ZF+B  ) 

RETURN 

28: 

REM  field  artillery  regiment  #28 

U-3:U1$-"FIELD  ARTY  REGIMENT" : U2$=" " 

CIRCLE  (185*ZF+A,65*ZF+B)  , 30*ZF,3 

PAINT(185»ZF+A,65*ZF+B)  ,1,3 

LINE(15  5*ZF+A,16*ZF+B)-(175*ZF+A,22*ZF+B) 

LINE(175*ZF+A,16*ZF+B)-(155»ZF+A,22*ZF+B) 

LINE(195*ZF+A,16*ZF+B)-(215»ZF+A,22»ZF+B) 

LINE(215»ZF+A,16»ZF+B)-(195»ZF+A,22»ZF+B) 

RETURN 

29: 

REM  cav  reg  air  atk  #29 

U-3:U1$=»"  CAVALRY  REGIMENT  AIR  ATTACK" : U2$=" " 

CIRCLE(100*ZF+A,65*ZF+B)  , 35*ZF,1  ,  56*PI  /  180  ,  304  *P  I  /  180 

CIRCLE(270»ZF+A,65»ZF+B)  ,  35*ZF,1  ,  236 *PI  /  180  ,  124  *PI  /  180 

LINE(120*ZF+A,52»ZF+B)-(250»ZF+A,78*ZF+B) 

LINE(120*ZF+A,78*ZF+B)-(25  0»ZF+A,52*ZF+B) 

LINE(10*ZF+A,12  0*ZF+B)-(36  0*ZF+A,10*ZF+B ) 

PAINT(100*ZF+A,65*ZF+B)  ,  1  :  PAINT  (  27  0  *ZF+A  ,  65  »ZF+B  )  ,1 

RETURN 
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30: 

REM   aviation  gp  #30 

U=0:U1$="AVIATI0N  GROUP" : U2$=" " 


CIRCLE(100*ZF+A,65»ZF+B 
CIRCLE(270*ZF+A,65*ZF+B 
LINE(  120*ZF+A  ,  52*ZF+B  )- 
LINE(  120*ZF+A  ,  78*ZF+B  )- 
PAINT(  100*ZF+A  ,  65*ZF+B  ) 
LINE(14  0*ZF+A,25*ZF+B)- 
LINE(  185»ZF+A,  5  5*ZF+B  )- 
LINE(185*ZF+A,5  5*ZF+B)- 
LINE(14  0*ZF+A,95*ZF+B)- 
RETURN 


,35*ZF,1,56»PI/180,304*PI/180 

,35»ZF,1,236*PI/180,124*PI/180 

250»ZF+A,78*ZF+B) 

250*ZF+A,52*ZF+B) 

1:PAINT(270*ZF+A,65*ZF+B) ,1 

185*ZF+A,55*ZF+B) 

230*ZF+A,25*ZF+B) 

185»ZF+A,95*ZF+B) 

230*ZF+A,95*ZF+B) 


41: 

REM  motorized  infantery  (divisional)  #41 

U-4:U1$= "MOTORIZED  INFANRTY  BATTALION" :U2$=" " 

GOSUB  u4 

RETURN 

42: 

REM  airborne  battalion  #42 

U-4:U1$- "AIRBORNE  BATTALION" :U2$-" " 
CIRCLE(130*ZF+A,120*ZF+B),5  0*ZF,1,15*PI/180,165*PI/180 

CIRCLE(24  0»ZF+A,120*ZF+B)  ,  5  0*ZF  ,  1  ,  15»PI  /  180  ,  165  *PI/  180 

LINE(178*ZF+A,115*ZF+B)-(192*ZF+A,115*ZF+B) 

GOSUB  u4 

RETURN 

43: 

REM  mountaineer  battalion  #43 

U=4:U1$»" INFANTRY  BATTALION" : U2$- "MOUNTAINEER  DIVISION" 

GOSUB  u4 

LINE  (10»ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B),  >B 

LINE(152*ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

LINE(212*ZF+A,120»ZF+B)-(182*ZF+A,10  0*ZF+B) 

PAINT(  165*ZF+A,  114*ZF+B  ) 

RETURN  -  . 

44: 

REM  mechanized  infantery  battalion  (armored  brig)  #44 

U1$="MECHANIZED      INFANTRY     BATTALION" : U2$= "ARMORED 

BRIGADE" :U= 4 

CIRCLE  (90*ZF+A,65*ZF+B)  ,  48*ZF,1  ,  90*PI  /  180  ,  270 *P I  /  180 

CIRCLE(280»ZF+A,65*ZF+B)  , 48*ZF,1  ,  27  0  »P  I  /  180  ,  90*PI  /  180 

LINE(90»ZF+A,4  5»ZF+B)-(280»ZF+A,45*ZF+B) 

LINE(90»ZF+A,85*ZF+B)-(280*ZF+A,85»ZF+B) 

GOSUB  u4 

RETURN 
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45: 

REM  mechanized  infantery  battalion  (infant,  brig)  #45 

U-4:U1$= "MECHANIZED  INFANTRY  BATTALION" 

U2$- "MECHANIZED  INFANTRY  BRIGADE" 

CIRCLE  (90»ZF+A,65*ZF+B) , 48»ZF , 1 , 9  0*PI/ 180 , 270 *PI/ 180 

CIRCLE(280*ZF+A,65*ZF+B)  ,48*ZF,1  ,  27  0 *PI/  180  ,  90*PI  /  180 

LINE(  90*ZF+A  ,  4  5*ZF+B  )-(  280*ZF+A  ,  4  5*ZF+B  ) 

LINE(90*ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 

GOSUB  u4 

LINE(10*ZF+A,10*ZF+B)-(35*ZF+A,120*ZF+B)  ,  ,BF 

RETURN 

46: 

REM  motorized  infantery  (divisional)  #46 

U«4:U1$="M0T0RIZED  INFANRTY  BATTALION" :U2$=" " 

LINE  (165*ZF+A,90*ZF+B)-(205»ZF+A,110»ZF+B) 

LINE  (165*ZF+A,H0*ZF+B)-(205»ZF+A,90»ZF+B) 

GOSUB  u4 

RETURN 

47: 

REM  motorized  infantery  (aaslt  div )  #47 

U-4:U1$- "MOTORIZED  INFANRTY  BATTALION" : U2$=" " 

GOSUB  u4 

LINE(14  0»ZF+A,35»ZF+B)-(185*ZF+A,65»ZF+B) 

LINE(185»ZF+A,65*ZF+B)-(230»ZF+A,35*ZF+B) 

RETURN 

48: 

REM  airborne  infantry  battalion  #48 
U-4:U1$-"AIRB0RNE  INFANTRY  BATTALION" :U2$=" " 
CIRCLE(185*ZF+A,80»ZF+B)  ,80*ZF 

LINE(50*ZF+A,60»ZF+B)-(280»ZF+A,115*ZF+B)  ,  0,BF 
LINE( ^10*ZF+A,  10*ZF+B  )-(  127»ZF+A  ,  47*ZF+B  ) 
LINE(360»ZF+A,10*ZF+B)-(233*ZF+A,47*ZF+B) 
LINE( 10*ZF+A, 12  0»ZF+B )-( 127»ZF+A , 73*ZF+B ) 
LINE(360»ZF+A,12  0»ZF+B)-(233*ZF+A,73*ZF+B) 
LINE  (122*ZF+A,6  0»ZF+B)-(185»ZF+A,9  0*ZF+B) 
LINE(185*ZF+A,90*ZF+B)-(245*ZF+A,6  0»ZF+B) 
LINE(122*ZF+A,6  0»ZF+B)-(24  5*ZF+A,6  0*ZF+B) 
RETURN 

49: 

REM  armored  reconnaissance  battalion   #49 

U»4:U1$= "ARMORED  CAVALRY  BATTALION  ":U2$="" 

CIRCLE  (90»ZF+A,65*ZF+B) , 48*ZF , 1 , 90*PI / 180 , 270 *PI / 180 

CIRCLE(280*ZF+A,65*ZF+B)  ,48*ZF,1  ,  270 »P 1/180  ,  90*PI/180 

LINE  (90*ZF+A,45*ZF+B)-(280*ZF+A,45»ZF+B) 

LINE  (90»ZF+A,85*ZF+B)-(280»ZF+A,85*ZF+B) 

LINE  (10»ZF+A,12  0*ZF+B)-(36  0»ZF+A,10*ZF+B) 

RETURN 
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50: 

REM  air  cavalry  squadron  #50 

U=4:U1$="AIR  CAVALRY  SQUADRON" :U2$=" " 

CIRCLE(100*ZF+A,65*ZF+B)  ,  35  *ZF  ,  1  ,  56*PI/  180  ,  304 *PI  /  180 

CIRCLE(270*ZF+A,65*ZF+B)  ,  35*ZF  ,  1  ,  236 *PI/  180  ,  124 *PI/  180 

LINE(120*ZF+A,52*ZF+B)-(25  0*ZF+A,78*ZF+B) 

LINE(120*ZF+A,78*ZF+B)-(250*ZF+A,52*ZF+B) 

LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 

PAINT ( 100 *ZF+A, 65 *ZF+B ) , 1 : PAINT ( 270 *ZF+A , 65*ZF+B ) , 1 

RETURN 

51: 

REM  armored  battalion  (mech.  inf.  brig)  #51 

Ul$- "ARMORED  BATTALION" 

U2$= "MECHANIZED  INFANTRY  BRIGADE" 

CIRCLE  (90*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  90*PI/  180  ,  270 *PI  /  180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  270 *PI  /  180  ,  90*PI  /  180 

LINE(90*ZF+A,45*ZF+B)-(280*ZF+A,4  5*ZF+B) 

LINE(90*ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 

RETURN 

52: 

REM  armored   battalion  (armored  brig)  #52 

U-4:U1$=" ARMORED  BATTALION" : U2$= "ARMORED  BRIGADE" 

CIRCLE  (90*ZF+A,65*ZF+B) , 48*ZF , 1 , 9  0*PI/ 180 , 270 *PI/ 180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  270  *PI/  180  ,  90*PI  /  180 

LINE  (90*ZF+A,4  5*ZF+B)-(280*ZF+A,4  5*ZF+B) 

LINE  (90*ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(30*ZF+A,120*ZF+B)  ,  ,BF 

RETURN 

53: 

REM  armored   battalion  (airborne  brig)  #53 
U1$="ARM0RED  BATTALION" :U2$="AIRB0RNE  BRIGADE" 
CIRCLE  (90*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  9  0*PI  /  180  ,  270  *PI  /  180 
CIRCLE(280*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  270 *PI/  180  ,  90*PI  /  180 
LINE  (90»ZF+A,4  5»ZF+B)-(280*ZF+A,4  5»ZF+B) 
LINE  (90*ZF+A,85*ZF+B)-(280»ZF+A,85*ZF+B) 
CIRCLE(130*ZF+A,120*ZF+B)  ,  5  0*ZF  ,  1  ,  15*PI/  180  ,  165  *PI  /  180 
CIRCLE(24  0*ZF+A,12  0*ZF+B)  ,50*ZF,1  ,  15»PI/  180  ,  165 *PI  /  180 
LINE(  178»ZF+A,H5*ZF+B)-(192*ZF+A,115*ZF+B) 
RETURN 
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54: 

REM  attack  helicopter  battalion  #54 

U1$-"ATTACK  HELICOPTER  BATTALION" : U2$=" " 

CIRCLE  (90*ZF+A,65*ZF+B)  ,  60  *ZF  ,  1  ,  9  0*PI  /  180  ,  270 *PI  /  180 

CIRCLE (  280  *ZF+A,  65  *ZF+B)  ,60*ZF,  1 ,270*PI/180  ,  90*PI/180 

LINE(90*ZF+A,40*ZF+B)-(280*ZF+A,40*ZF+B) 

LINE(90»ZF+A,90*ZF+B)-(280*ZF+A,90*ZF+B) 

CIRCLE(100*ZF+A,65*ZF+B)  ,  35 *ZF  ,  1  ,  56»PI/  180  ,  304 *PI/  180 

CIRCLE(27  0*ZF+A,65*ZF+B)  ,35*ZFf  1 ,  236*PI/180  ,  124*PI/180 

LINE(120*ZF+A,52*ZF+B)-(25  0*ZF+A,78*ZF+B) 

LINE(120*ZF+A,78*ZF+B)-(250»ZF+A,52*ZF+B) 

PAINT ( 100*ZF+A ,  65*ZF+B ) , 1 : PAINT ( 270 *ZF+A , 65 »ZF+B ) , 1 
RETURN 

55: 

REM  field  artillery  battalion  #55 
U-4:U1$="FIELD  ARTY  BATTALION" :U2$=" " 
CIRCLE  (185*ZF+A,65*ZF+B)  , 30*ZF,3 
PAINT ( 185 *ZF+A,  65  »ZF+B)  ,1,3 
RETURN 

56: 

REM  field  artilley  battalion  #56 

U-4:U1$«"FIELD  ARTILLERY  BATTALION" :U2$-" " 

CIRCLE 

(185»ZF+A,65*ZF+B)  ,  30*ZF  ,  3  :  PAINT  ( 185*ZF+A  ,  65  *ZF+B  ) 

LINE  (10»ZF+A,10*ZF+B)-(360»ZF+A,120*ZF+B) 

LINE  (10»ZF+A,120*ZF+B)-(360»ZF+A,10»ZF+B) 

RETURN 

57: 

REM  field  artilley  battalion  #57 

U-4:U1$*"FIELD  ARTILLERY  BATTALION" : U2$-" " 

CIRCLE  (185*ZF+A,65»ZF+B) ,30*ZF,3 

PAINT ( 185 »ZF+A,  65  »ZF+B)  ,1,3 

LINE  (10*ZF+A,10»ZF+B)-(36  0*ZF+A,12  0*ZF+B) 

LINE  (10»ZF+A,120*ZF+B)-(360»ZF+A,10»ZF+B) 

CIRCLE(130*ZF+A,120»ZF+B)  , 50*ZF,1  ,  15*PI  /  180  ,  165  *P  I  /  180 

CIRCLE(24  0*ZF+A,120*ZF+B)  ,  5  0»ZF,1  ,  15*PI  /.180  ,  165  *PI  /  180 

LINE(178*ZF+A,115*ZF+B)-( 192*ZF+A,115*ZF+B) 

RETURN 

58: 

REM  reconnaissance  battalion  #58 

U-4:U1$="REC0NNAISSANCE  BATTALION  ":U2$="" 

CIRCLE  (185*ZF+A,6  5*ZF+B)  ,30*ZF,3 

PAINT(185*ZF+A,65»ZF+B),1,3 

LINE  (10»ZF+A,120»ZF+B)-(360*ZF+A,10*ZF+B) 

RETURN 
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59: 

REM  field  arty  battalion  #59 

U1$="FIELD  ARTILLERY  BATTALION" :U2$-" " 

CIRCLE  (90*ZF+A,65*ZF+B) , 48»ZF , 1 , 90*PI/ 180 , 270 *PI/ 180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48*ZF  ,  1  ,  270  *PI/  180  ,  90*PI  /  180 

LINE(90*ZF+A,4  5»ZF+B)-(280»ZF+A,4  5»ZF+B) 

LINE(90*ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 

CIRCLE  (180»ZF+A,65»ZF+B)  ,20*ZF,3 

PAINT  (180*ZF+A,65»ZF+B)  ,3,3 

RETURN 

60: 

REM  missile  artillery  battalion  #60 
U=4:U1$="MISSILE  ARTY  BATTALION" :U2$»" " 
LINE(180*ZF+A,35*ZF+B)-(14  0*ZF+A,60*ZF+B) 
LINE(180*ZF+A,35*ZF+B)-(22  0*ZF+A,60*ZF+B) 
LINE ( 180 * ZF+A , 4 5 * ZF+B ) - ( 1 4 0 * ZF+A , 7 0 * ZF+B ) 
LINE(180*ZF+A,4  5*ZF+B)-(22  0*ZF+A,70»ZF+B) 
CIRCLE  (180*ZF+A,80*ZF+B) ,25*ZF,3 
PAINT(  180*ZF+A ,80*ZF+B  )  ,  1  ,  3 
RETURN 

61: 

REM  pershing  battalion  #61 

U-4:U1$-"MISSILE  ARTY  BATTALION" :U2$-"PERSHING" 

CIRCLE(360*ZF+A,100»ZF+B) , 

220*ZF,1,142.5*PI/180,180*PI/180 
CIRCLE(5*ZF+A,100*ZF+B)  ,  220 *ZF  ,  1  ,  0  ,  37  .  5*PI  /  180 
LINE(  14  0*ZF+A  ,  100*ZF+B  )-( 14  0*ZF+A  ,  12  0*ZF+B  ) 
LINE(225*ZF+A,100*ZF+B)-(225*ZF+A,120*ZF+B) 
LINE(143*ZF+A,86*ZF+B)-(222*ZF+A,86*ZF+B) 
LINE(140*ZF+A,106*ZF+B)-(225*ZF+A,106*ZF+B) 
CIRCLE  (180*ZF+A,96*ZF+B) ,9*ZF,3 
PAINT(  180*ZF+A  ,  96»ZF+B  )  ,  1  ,  3 
RETURN 

62: 

REM  mountaineer  artillery  battalion  #62 

U=4:U1$-"FIELD  ARTILLERY  BATTALION" 

U2$= "MOUNTAINEER  DIVISION" 

CIRCLE  ( 185»ZF+A,65*ZF+B) , 30*ZF,3 

PAINT ( 185*ZF+A,6  5»ZF+B) ,1,3 

LINE  (10*ZF+A,10*ZF+B)-(360»ZF+A,120»ZF+B) ,  ,B 

LINE(152»ZF+A,120*ZF+B)-(182»ZF+A,100*ZF+B) 

LINE(212»ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

PAINT(165»ZF+A,114*ZF+B  ) 

RETURN 
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63: 

REM   nbc   battalion   #63 

U»4:U1$-"NBC  BATTALION" :U2$=" " 

CIRCLE  (80»ZF+A,50*ZF+B) ,30*ZF,3 

PAINT(80*ZF+A,5  0*ZF+B)  ,1,3 

CIRCLE  (290»ZF+A,5  0»ZF+B)  ,30*ZF,3 

PAINT(290*ZF+A,5  0*ZF+B)  ,1,3 

LINE  (290»ZF+A,100*ZF+B)-(98»ZF+A,4  0*ZF+B) 

LINE  (80*ZF+A,100*ZF+B)-(270*ZF+A,4  0*ZF+B) 

RETURN 

64: 

REM  combat  aviation  bn  #64 

U-4:U1$-" COMBAT  AVIATION  BATTALION" :U2$=" " 

CIRCLE(100*ZF+A,65*ZF+B)  ,  35*ZF  ,  1  ,  56*PI  /  180  ,  304  *PI/  180 

CIRCLE(27  0*ZF+A,65*ZF+B)  ,  35  *ZF  ,  1  ,  236*PI/180  ,  124  »PI  /  180 

LINE(120*ZF+A,52*ZF+B)-(25  0»ZF+A,78*ZF+B) 

LINE(120»ZF+A,78»ZF+B)-(25  0*ZF+A,5  2*ZF+B) 

PAINT(100»ZF+A,65*ZF+B)  ,  1  :  PAINT  (  27  0  *ZF+A  ,  65  »ZF+B  )  ,1 
RETURN 

65: 

REM  military  intelligence  battalion  #65 
U-4:U1$-"MILITARY  INTELLIGENCE  BATTALION" :U2$-" " 
LINE(  22  0»ZF+A,30»ZF+B  )-(  260»ZF+A , 30»ZF+B  ) 
LINE(22  0»ZF+A,100»ZF+B)-(260»ZF+A,100*ZF+B) 
LINE(80*ZF+A,30»ZF+B)-(80*ZF+A,100*ZF+B) 
LINE(160»ZF+A,30»ZF+B)-(160*ZF+A,100*ZF+B) 
LINE(24  0*ZF+A,30*ZF+B)-(24  0*ZF+A,100*ZF+B) 
LINE  (80*ZF+A,30»ZF+B)-(120*ZF+A,60»ZF+B) 
LINE(120*ZF+A,6  0*ZF+B)-(16  0*ZF+A,30*ZF+B) 

RETURN 

66: 

REM  medical  battalion  #66 

U«4:U1$-"MEDICAL  BATTALION" :U2$="" 

LINE  (10*ZF+A,65*ZF+B)-(360»ZF+A,65*ZF+B) 

LINE  (185»ZF+A,10»ZF+B)-(185*ZF+A,120*ZF+B) 

RETURN 

67: 

REM   medical  evacuation  battalion  #67 

U=4:U1$-"MEDICAL  EVACUATION  BATTALION" : U2$=" " 

CIRCLE ( 180*ZF+A,65*ZF+B)  ,70*ZF 

LINE  (130»ZF+A,4  6»ZF+B)-(232*ZF+A,84»ZF+B) 

LINE(131»ZF+A,85*ZF+B)-(230»ZF+A,4  6*ZF+B) 

LINE  ( 185»ZF+A, 10»ZF+B )-( 185*ZF+A , 120*ZF+B ) 

LINE  (10*ZF+A,65*ZF+B)-(36  0*ZF+A,65*ZF+B) 

LINE(10»ZF+A,10*ZF+B)-(40»ZF+A,120*ZF+B)  ,  ,BF 

RETURN 
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68: 

REM   maintainance   battalion   #68 

U=4:U1$= "MAINTAINANCE  BATTALION" : U2$=" " 

CIRCLE  (5  0*ZF+A,65»ZF+B)  ,  5  0  *ZF  ,  1  ,  270  *PI/  180  ,  90»PI  /  180 

CIRCLE  (320*ZF+A,65*ZF+B)  ,  5  0*ZF  ,  1  ,  90*PI/  180  ,  270 *PI  / '180 

LINE  (100*ZF+A,65*ZF+B)-(270*ZF+A,65*ZF+B) 

RETURN 

69: 

REM   maintainance   battalion   (electronic  mn . )  #69 

U=4 :U1$= "MAINTAINANCE  BATTALION" 

U2$="( ELECTRONIC  MAINTAINANCE)" 

CIRCLE  (50*ZF+A,85*ZF+B)  ,  5  0*ZF  ,  1  ,  270 »PI/  180  ,  90*PI  /  180 

CIRCLE  (320*ZF+A,85*ZF+B)  ,  50*ZF,1  ,  90*PI/  180  ,  270  *P  I  /  180 

LINE  (100*ZF+A,85*ZF+B)-(27  0*ZF+A,85*ZF+B) 

LINE ( 1 4 0 *ZF+A , 3 0 *ZF+B ) - ( 1 4 0 » ZF+A , 5 0 *ZF+B ) 

LINE  (230*ZF+A,30*ZF+B)-(230*ZF+A,5  0*ZF+B) 

LINE(230*ZF+A,30*ZF+B)-(14  0*ZF+A,4  0*ZF+B) 

LINE(230*ZF+A,50*ZF+B)-(14  0*ZF+A,40*ZF+B) 

PAINT(  16  0*ZF+A  ,  4  0*ZF+B  ) 

LINE(57*ZF+A,4  0*ZF+B)-(310*ZF+A,4  0*ZF+B) 

RETURN 

70: 

REM   supply  battalion   #70 

U=4:U1$="SUPPLY  BATTALION" : U2$=" " 

LINE  (10*ZF+A,100*ZF+B)-(360*ZF+A,100*ZF+B) 

RETURN 

71: 

REM   supply  battalion  for  special  weapons  #71 

U-4:U1$= "SUPPLY  BATTALION  (SW)":U2$="" 

LINE  (10*ZF+A,100*ZF+B)-(360*ZF+A,100*ZF+B) 

LINE(235*ZF+A,5  5*ZF+B)-(22  0*ZF+A,7  5*ZF+B) 

CIRCLE(150*ZF+A,60*ZF+B)  ,  13*ZF  ,  1  ,  4  5*PI/  180  ,  270  *PI  /  180 

CIRCLE(150*ZF+A,70*ZF+B)  ,  13*ZF,1  ,  225  *PI  /  180  ,  90*PI  /  180 

LINE(  185*ZF+A,5  5*ZF+B  )-(  200*ZF+A  ,  75*ZF+B  ) 

LINE(200*ZF+A,75*ZF+B)-(210*ZF+A,60*ZF+B) 

LINE(210*ZF+A,60*ZF+B)-(220*ZF+A,75*ZF+B) 

RETURN 

72: 

REM   transportation   battalion  #72 

U-4:U1$="TRANSP0RTATI0N  BATTALION" :U2$="" 

CIRCLE(180*ZF+A,65»ZF+B)  , 70*ZF 

LINE  (130»ZF+A,46»ZF+B)-(232*ZF+A,84»ZF+B) 

LINE(131»ZF+A,85»ZF+B)-(230*ZF+A,46*ZF+B) 

LINE  (180*ZF+A,37*ZF+B)-(  180»ZF+A  ,  93»ZF+B  ) 

LINE  (110»ZF+A,65»ZF+B)-(25  0*ZF+A,65»ZF+B) 

RETURN 


190 


73: 

REM  military  police   battalion  #73 

U=4:U1$="MILITARY  POLICE  BATTALION" :U2$=" " 

CIRCLE(25  5»ZF+A,42*ZF+B) , 29*ZF,1 , 270*PI/ 180 , 90*PI / 180 

LINE(240*ZF+A,30*ZF+B)-(255*ZF+A,30*ZF+B) 

LINE(240*ZF+A,54*ZF+B)-(255*ZF+A,54»ZF+B) 

LINE(80*ZF+A,30*ZF+B)-(80»ZF+A,100*ZF+B) 

LINE(160*ZF+A,30»ZF+B)-(160»ZF+A,100*ZF+B) 

LINE(24  0*ZF+A,30*ZF+B)-(24  0*ZF+A,100*ZF+B) 

LINE  (80»ZF+A,30*ZF+B)-(120*ZF+A,60*ZF+B) 

LINE(120»ZF+A,60»ZF+B)-(16  0*ZF+A,30*ZF+B) 

RETURN 

74: 

REM  ada  battalion  #74 

U-4:U1$-"ADA  BATTALION" : U2$-"C0RPS  ADA  COMMAND" 

CIRCLE 

(186*ZF+A,17  5*ZF+B)  ,  220*ZF , 1 , 39*PI / 180 , 142*PI / 180 

RETURN 

75: 

REM  ada  battalion  #75 

U-4:U1$-"ADA  BATTALION" :U2$-"AIRB0RNE  DIVISION" 

CIRCLE 

(186*ZF+A,175*ZF+B)  ,  220 »ZF  ,  1  ,  39*PI  /  180  ,  142  *PI  /  180 

CIRCLE(130*ZF+A,120*ZF+B)  ,50*ZF,1  ,  15*PI  /  180  ,  165  *PI  /  180 

CIRCLE(24  0*ZF+A,120»ZF+B) , 5  0*ZF , 1 , 15*PI / 180 , 165 *PI / 180 

LINE(178»ZF+A,115*ZF+B)-(192*ZF+A,115»ZF+B) 

RETURN 

76: 

REM   ew  battalion  #76 

U-4:U1$-"EW  BATTALION"  :U2$=»"" 

LINE  (10*ZF+A,120»ZF+B)-(185*ZF+A,50»ZF+B) 

LINE(185*ZF+A,80*ZF+B)-(36  0»ZF+A,10*ZF+B) 

LINE(185»ZF+A,80»ZF+B)-(185*ZF+A,5  0*ZF+B) 

RETURN 

77: 

REM   signal  battalion  #77 

U=4:U1$="SIGNAL  BATTALION" :U2$="" 

LINE  (  10*ZF+A,10»ZF+B)-(  185  »ZF+A  ,  80»ZF+B  ) 

LINE(  185*ZF+A  ,  5  0»ZF+B  )-(  360*ZF+A  ,  12  0*ZF+B  ) 

LINE(185»ZF+A,80*ZF+B)-(185*ZF+A,5  0*ZF+B) 

RETURN 
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78: 

REM   signal  construction  battalion  #78 
U=4:U1$="SIGNAL  CONSTRUCTION  BATTALION" :U2$=" " 
LINE  (70*ZF+A,42*ZF+B)-(300*ZF+A,42*ZF+B) 
LINE(70*ZF+A,53*ZF+B)-(30  0*ZF+A,53*ZF+B) 
LINE(120*ZF+A,65*ZF+B)-(250*ZF+A,65*ZF+B) 
LINE  (182*ZF+A,65*ZF+B)-(  182  *ZF+A , 91*ZF+B ) 
RETURN 

79: 

REM  signal  construction  battalion  #79 

CIRCLE (185 *ZF+A,B-2  0*ZF) , 16  0*ZF , 1 , 230 *PI/ 180 , 310*PI / 180 

U=4:U1$="SIGNAL  CONSTRUCTION  BATTALION" :U2$=" " 

LINE  ( 130*ZF+A,  45»ZF+B  )-( 130*ZF+A,  100*ZF+B  ) 

LINE  (225*ZF+A,45*ZF+B)-(225*ZF+A,85*ZF+B) 

LINE  (225*ZF+A,85*ZF+B)-(25  0*ZF+A,65*ZF+B) 

LINE (  25  0 *ZF+A,  65*ZF+B  )-(  25  0 *ZF+A  ,  100 *ZF+B  ) 

RETURN 

80: 

REM  feld  ersatz  battalion  #80 

U=4:U1$="FELD  ERSATZ  BATTALION" :U2$-" " 

LINE(50*ZF+A,100*ZF+B)-(50*ZF+A,30*ZF+B) 

LINE(50*ZF+A,30*ZF+B)-(110*ZF+A,30*ZF+B) 

LINE(  5  0*ZF+A,65*ZF+B  )-( 100*ZF+A , 65*ZF+B  ) 

LINE(  120*ZF+A,  100»ZF+B  )-( 120*ZF+A  ,  30*ZF+B  ) 

LINE(120*ZF+A,30*ZF+B)-(180*ZF+A,30*ZF+B) 

LINE(  120*ZF+A,65*ZF+B  )-( 170*ZF+A , 65*ZF+B  ) 

LINE(  120*ZF+A,  100*ZF+B  )-( 180*ZF+A  ,  100*ZF+B  ) 

CIRCLE(225*ZF+A,77*ZF+B) ,25*ZF , 1 , 0 ,PI 

LINE(200*ZF+A,65»ZF+B)-(20  0*ZF+A,100*ZF+B) 

CIRCLE(290*ZF+A,75*ZF+B),20*ZF,l,0,PI*3/2 

CIRCLE(290*ZF+A,91*ZF+B) ,  20»ZF,1 , 180 *PI/ 180 , 90*PI / 180 

RETURN 

81: 

REM  engineer  battalion  #81 

Ul$- "ENGINEER  BATTALION" : U2$=" " 

LINE  (90*ZF+A,5  5*ZF+B)-(280*ZF+A,5  5*ZF+B) 

LINE  (90»ZF+A,55*ZF+B)-(90*ZF+A,75*ZF+B) 

LINE  (  180*ZF+A,5  5»ZF+B  )-(  180»ZF+A  ,  7  5  »ZF+B  ) 

LINE  (280*ZF+A,5  5*ZF+B  )  -  (  280  *ZF+A  ,  7  5  »ZF+B  ) 

RETURN 
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82: 

REM  armored  engineer  battalion  #82 

U1$-"ARM0RED  ENGINEER  BATTALION" :U2$=" " 

CIRCLE  (90*ZF+A,65*ZF+B)  , 48*ZF,1  ,  90*PI  /  180  ,  27  0*PI  /  180 

CIRCLE(280*ZF+A,65*ZF+B)  , 48»ZF,1  ,  27  0*PI  /  180  ,  90*PI  /  180 

LTNE(90*ZF+A,4  5*ZF+B)-(280*ZF+A,4  5»ZF+B) 

LINE(90»ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 

LINE  (  9  0*ZF+A,  5  5*ZF+B  )-(  280*ZF+A  ,  5  5*ZF+B  ) 

LINE  (90*ZF4A,55*ZF+B)-(90*ZF+A,75*ZF+B) 

LINE  (180*ZF+A,55*ZF+B)-(180*ZF+A,7  5*ZF+B) 

LINE  (280*ZF+A,55*ZF+B)-(280*ZF+A,75*ZF+B) 

RETURN 

83: 

REM  engineer  battalion  #83 

U-4:U1$-"ENGINEERING  FERRY  BATTALION" :U2$=" " 
CIRCLE(57*ZF+A,5  0*ZF+B)  , 32*ZF , 1 , 0 , PI 
CIRCLE(121*ZF+A,5  0*ZF+B)  ,  32*ZF , 1 , PI , 0 
CIRCLE(185*ZF+A,5  0*ZF+B)  ,  32*ZF  ,  1  ,  0  ,  PI 
CIRCLE(24  9*ZF+A,5  0»ZF+B) P32«ZF,1 , PI ,0 
CIRCLE(313*ZF+A,5  0»ZF+B) , 32*ZF , 1 , 0 , PI 
LINE  (80»ZF+A,80»ZF+B)-(290»ZF+A,80»ZF+B) 
LINE  (80»ZF+A,80»ZF+B)-(80*ZF+A,9  9*ZF+B) 
LINE  (180»ZF+A,80»ZF+B)-(180*ZF+A,99*ZF+B) 
LINE  (290»ZF+A,80»ZF+B)-(29Q*ZF+A,99»ZF+B) 
RETURN 

84: 

REM  engineer  battalion  (bridge  layers)  #84 

U«4:U1$-"ENGINEER  BATTALION" : U2$="BRIDGE  LAYERS" 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

RETURN 


9  0*ZF+A,80*ZF+B )-( 280»ZF+A , 80*ZF+B ) 
90»ZF+A,80*ZF+B)-(90»ZF+A,99*ZF+B) 
185«ZF+A,80»ZF+B)-(185*ZF+A,99*ZF+B) 
280»ZF+A,80*ZF+B)-(280*ZF+A,99*ZF+B) 
110*ZF+A,55»ZF+B)-(260*ZF+A,5  5*ZF+B) 
110*ZF+A,4  0*ZF+B)-(260»ZF+A,4  0»ZF+B) 
90»ZF+A,6  5»ZF+B)-(110»ZF+A,55*ZF+B) 
26  0*ZF+A,4  0»ZF+B)-(280*ZF+A,30*ZF+B) 
90»ZF+A,30*ZF+B)-(110*ZF+A,40*ZF+B) 
260«ZF+A,55*ZF+B)-(280*ZF+A,65*ZF+B) 
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85: 

REM  supp 

U=4:U1$= 

CIRCLE(1 

CIRCLE(2 

LINE(178 

CIRCLE(1 

CIRCLE(1 

CIRCLE(1 

LINE(172 

CIRCLE(2 

LINE(200 

LINE(192 

RETURN 


ort  battalion  #85 

"SUPPORT  BATTALION" :U2$="AIRB0RNE  DIVISION" 

30*ZF+A,120*ZF+B) , 5  0*ZF , 1 , 15*PI/ 180 , 165 »PI / 180 

40*ZF+A,120*ZF+B)  ,  5  0*ZF  ,  1  ,  15*PI  /180  ,  165 *PI/  180 

*ZF+A,  115*ZF+B  )-( ^ 192*ZF+A  ,  115*ZF+B  ) 

5  0*ZF+A,60*ZF+B)  ,  13*ZF,  1 ,  45*PI/180  ,270*PI/180 

5  0*ZF+A,70*ZF+B)  ,  13*ZF , 1 , 22  5*PI/ 180 , 90*PI / 180 

80*ZF+A,7  0*ZF+B)  ,  13*ZF  ,  1  ,  225  *PI  /  180  ,  135 *PI/  180 

*ZF+A,66*ZF+B )-( 172*ZF+A , 85*ZF+B ) 

13*ZF+A,7  0*ZF+B)  ,  13*ZF,1  ,  180 *P I ;/  180  ,  34  0*PI  /  180 

*ZF+A,5  5*ZF+B)-(20  0»ZF+A,70*ZF+B) 

»ZF+A,63*ZF+B)-(210*ZF+A,63*ZF+B) 


86: 

REM  support  battalion  #86. 

U=4 :U1$- "SUPPORT  BATTALION" :U2$= 

CIRCLE (  150*ZF+A,60*ZF+B 

CIRCLE(150*ZF+A,70*ZF+B 

CIRCLE(180*ZF+A,70*ZF+B 

LINE(  172*ZF+A,  66»ZF+B  )- 
CIRCLE(213*ZF+A,70*ZF+B 
LINE(200*ZF+A,55*ZF+B)- 
LINE(  192*ZF+A,63*ZF+B)- 
RETURN 


,13*ZF,1,4  5»PI/180,270*PI/180 

,13*ZF,1,225*PI/180,90*PI/180 

,13*ZF,1,225*PI/180,135*PI/180 

172*ZF+A,85*ZF+B) 

,13*ZF,1,180*PI/180,34  0*PI/180 

200*ZF+A,70*ZF+B) 

210*ZF+A,63*ZF+B) 


87: 

REM   supply  and  transportation   battalion  #87 

U=4:U1$="SUPPLY  AND  TRANSPORTATION  BATTALION" :U2$=" " 

CIRCLE(180*ZF+A,65*ZF+B) ,70*ZF 

LINE  (130*ZF+A,46*ZF+B)-(232»ZF+A,84*ZF+B) 

LINE(131*ZF+A,85*ZF+B)-(230*ZF+A,46*ZF+B) 

LINE  ( 180»ZF+A,37*ZF+B  )-(  180*ZF+A  ,  93*ZF+B  ) 

LINE  (110*ZF+A,65*ZF+B)-(25  0*ZF+A,65*ZF+B) 

LINE  (10*ZF+A,100»ZF+B)-(360*ZF+A,100»ZF+B) 
RETURN 


88: 

REM  fie 

U1$="FI 

CIRCLE 

PAINT(1 

CIRCLE 

CIRCLE( 

LINE(90 

LINE(90 

LINE(10 

LINE(10 

RETURN 


Id  arty  battalion  (mech  division)  #88 

ELD  ARTILLERY  BATTALION"  :  U2$=*"MECH.  DIVISION" 

( 185*ZF+A,6  5*ZF+B ) ,30*ZF,3 

85»ZF+A,65»ZF+B) 

(90*ZF+A,65*ZF+B)  ,  48*ZF,1  ,  9  0*PI  /  180  ,  270 »P I  /  180 

280*ZF+A,65»ZF+B)  ,  48*ZF  ,  1  ,  270  »P  I  /  180  ,  90*PI  /  180 

»ZF+A,4  5»ZF+B)-(280»ZF+A,4  5»ZF+B) 

»ZF+A,85*ZF+B)-(280»ZF+A,85»ZF+B) 

*ZF+A,  10»ZF+B  )-(  360*ZF+A,  12  0»ZF+B  ) 

*ZF+A,12  0»ZF+B  )-(36  0*ZF+A,10»ZF+B) 
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89: 

REM  field  arty  battalion  (AASLT  division)  #89 

U1$="FIELD  ARTILLERY  BATTALION" : U2$="AASLT  DIVISION" 

CIRCLE  (185*ZF+A,65*ZF+B) ,30*ZF,3 

PAINT ( 185 *ZF+A , 65*ZF+B ) 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,120»ZF+B) 
LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 

LINE(  14  5*ZF+A,20*ZF+B  )-( 185*ZF+A , 40*ZF+B  ) 
LINE(225*ZF+A,20*ZF+B)-(185*ZF+A,4  0*ZF+B) 
LINE(  185*ZF+A,  4  0»ZF+B  )-(  185»ZF+A,  100*ZF+B  ) 
LINE(14  5*ZF+A,100*ZF+B)-(225*ZF+A,100*ZF+B) 

RETURN 

101: 

REM  military  band  #101 
U=5:U1$="MILITARY  BAND":U2$="" 
CIRCLE(25*ZF+A,60*ZF+B)  ,  80*ZF  ,  1  ,  0  ,  PI/ 2 
CIRCLE(185»ZF+A,60*ZF+B)  , 80*ZF , 1 , PI , 0 
CIRCLE(34  5*ZF+A,60*ZF+B)  ,80*ZF,1,PI/2,PI 
LINE(185»ZF+A,3  0*ZF+B)-(185*ZF+A,110*ZF+B) 
LINE(  140»ZF+A,30*ZF+B  )-( 14  0»ZF+A  ,  70*ZF+B  ) 
LINE(230*ZF+A,30»ZF+B)-(230*ZF+A,7  0»ZF+B) 
LINE(100*ZF+A,5  0»ZF+B)-(270*ZF+A,5  0*ZF+B) 
RETURN 

102: 

REM  military  police  co  #102 

U-5:U1$-"MILITARY  POLICE  COMPANY" : U2$-" " 

CIRCLE(25  5*ZF+A,42*ZF+B)  ,29*ZF,1  ,  270*PI/  180  ,  90*PI  /  180 

LINE ( 2 4 0 * ZF+A , 3 0 * ZF+B ) - ( .2 5 5  * ZF+A , 3 0 * ZF+B ) 

LINE(24  0»ZF+A,54»ZF+B)-(25  5»ZF+A,5  4*ZF+B) 

LINE(80*ZF+A,30*ZF+B)-(80*ZF+A,100*ZF+B) 

LINE ( 160 »ZF+A  ,  30»ZF+B  )-(  160 *ZF+A  ,  100 ♦♦ZF+B  ) 
LINE(240*ZF+A,30*ZF+B)-(240*ZF+A,10  0»ZF+B) 
LINE  (80*ZF+A,30»ZF+B)-(12  0*ZF+A,60*ZF+B) 
LINE(120*ZF+A,60*ZF+B)-(160*ZF+A,30*ZF+B) 

RETURN 

103: 

REM  chemical  co  #103 

U=5 :U1$="CHEMICAL  COMPANY" :U2$="" 

CIRCLE  (80*ZF+A,50*ZF+B ) ,30»ZF,3 

PAINT(80*ZF+A,5  0*ZF+B)  ,1  ,3 

CIRCLE  (29  0*ZF+A,5  0*ZF+B)  ,  30»ZF,3 

PAINT(29  0»ZF+A,5  0*ZF+B)  ,1,3 

LINE  (290*ZF+A,100*ZF+B)-(98*ZF+A,4  0*ZF+B) 

LINE  (80*ZF+A,100*ZF+B)-(270»ZF+A,40»ZF+B) 

RETURN 
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104: 

REM  cavalry  troop  #104 

U=5 : Ul$- " CAVALRY  TROOP " : U2$= " " 

CIRCLE  (90*ZF+A,65»ZF+B)  ,  48*ZF  ,  1  ,  90*PI/  180  ,  270 *PI/  180 

CIRCLE(280»ZF+A,65*ZF+B),48*ZF,1,270*PI/180,90*PI/180 

LINE  (90*ZF+A,45*ZF+B)-(280*ZF+A,45*ZF+B) 

LINE(90*ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 

LINE(10*ZF+A,120*ZF+B)-(36  0*ZF+A,10*ZF+B) 

RETURN 

105: 

REM  military  intelligence  company  #105 
U=5:U1$= "MILITARY  INTELLIGENCE  COMPANY" :U2$=" " 
LINE(220*ZF+A,30*ZF+B)-(260*ZF+A,30*ZF+B) 
LINE(220*ZF+A,100*ZF+B)-(26  0*ZF+A,100*ZF+B) 
LINE(80*ZF+A,30*ZF+B)-(80*ZF+A,100*ZF+B) 
LINE(160*ZF+A,30*ZF+B)-(160*ZF+A,100*ZF+B) 
LINE(24  0*ZF+A,30*ZF+B)-(24  0*ZF+A,100*ZF+B) 
LINE  (80*ZF+A,30*ZF+B)-(12  0»ZF+A,60*ZF+B) 
LINE(120»ZF+A,60*ZF+B)-(160*ZF+A,30*ZF+B) 
RETURN 

106: 

REM  hhq  corps  command  #106 

U-5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$=" CORPS  COMMAND" 

LINE( 10*ZF+A , 10*ZF+B  )-( 360*ZF+A , 30*ZF+B  )  , 1 ,BF 

LINE(14  0*ZF+A,36*ZF+B)-(160»ZF+A,43*ZF+B) 

LINE(160*ZF+A,36*ZF+B)-(14  0*ZF+A,4  3*ZF+B) 

LINE(175*ZF+A,36»ZF+B)-(195»ZF+A,43*ZF+B) 

LINE(195*ZF+A,36*ZF+B)-(175*ZF+A,4  3*ZF+B) 

LINE(  210*ZF+A  ,  36*ZF+B  )-(  230*ZF+A  ,  43*ZF+B  ) 

LINE(210*ZF+A,43»ZF+B)-(230»ZF+A,36»ZF+B) 

RETURN 

107: 

REM  hhq  corps  maintainance  command  #107 

U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$="C0RPS  MAINTAINANCE  COMMAND" 

CIRCLE  (5  0*ZF+A,65*ZF+B)  , 50*ZF,1  ,  27  0»PI  /  180  ,  90*PI  /  180 

CIRCLE  (32  0*ZF+A,65*ZF+B  )  ,50*ZF,1  ,  9  0  *P  1/180  ,270*PI/180 

LINE  (100*ZF+A,65*ZF+B  )-  (  27  0*ZF+A  ,  65*ZF+B  ) 

LINE(10*ZF+A,10»ZF+B)-(36  0*ZF+A,25*ZF+B)  ,  1  ,BF 

LINE(  175*ZF+A,28»ZF+B  )-(  195  *ZF+A  ,  37*ZF+B  ) 

LINE (  195 »ZF+A  ,  28»ZF+B  )-(  17  5 *ZF+A  ,  37*ZF+B  ) 

RETURN 
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108: 

REM  corps  signal  command.  #108 

U«5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$="C0RPS  SIGNAL  COMMAND" 

LINE  ( 10*ZF+A , 10»ZF+B )-( 185»ZF+A ,80*ZF+B  ) 

LINE(185»ZF+A,50*ZF+B)-(360»ZF+A,120*ZF+B) 

LINE(185»ZF+A,80*ZF+B)-(185*ZF+A,50*ZF+B) 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B)  ,  1,BF 

LINE(  175  *ZF+A  ,  28»ZF+B  )-(  195  »ZF+A  ,  37*ZF+B  ) 

LINE(195*ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN 

109: 

REM  hhq  arty  command  #109 

U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$= "ARTILLERY  COMMAND" 

CIRCLE  (185*ZF+A,65»ZF+B),30»ZF,3 

PAINT(185»ZF+A,65»ZF+B) ,1,3 

LINE(10*ZF+A,10»ZF+B)-(360»ZF+A,25*ZF+B) ,1,BF 

LINE ( 175*ZF+A,28»ZF+B )-( 195 »ZF+A , 37*ZF+B ) 

LINE(195*ZF+A,28*ZF+B)-(175»ZF+A,37*ZF+B) 

RETURN 

110: 

REM  hhq  corps  ada  command  #110 

U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$="C0RPS  ADA  COMMAND" 

CIRCLE 

(186*ZF+A,17  5»ZF+B) ,22  0»ZF,1 , 39»PI / 180 , 142»PI / 180 

LINE(10»ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B)  ,1,BF 

LINE(175*ZF+A,28*ZF+B)-(195»ZF+A,37»ZF+B) 

LINE( 195*ZF+A , 28»ZF+B )- ( 175 »ZF+A , 37*ZF+B ) 

RETURN 

111: 

REM  hhq  corps  engineer  command  #111 

U-5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$-"C0RPS  ENGINEER  COMMAND" 

LINE  (90*ZF+A,5  5»ZF+B)-(280*ZF+A,5  5*ZF+B) 

LINE  (90*ZF+A,55*ZF+B)-(90*ZF+A,75*ZF+B) 

LINE  (180*ZF+A,5  5*ZF+B)-(  180*ZF+A  ,  7  5  *ZF+B  ) 

LINE  (280*ZF+A,5  5*ZF+B  )-( 280*ZF+A, 75*ZF+B ) 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B)  ,1,BF 

LINE ( 175»ZF+A  ,  28*ZF+B  )-(  195  *ZF+A  ,  37*ZF+B  ) 

LINE(195»ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN. 
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112: 

REM  hhq  corps  medical  command  #112 

U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$=" CORPS  MEDICAL  COMMAND" 

LINE(10*ZF+A,65*ZF+B)-(360*ZF+A,65*ZF+B) 

LINE(  185»ZF+A,  5  0*ZF+B  )-( 185*ZF+A  ,  120*ZF+B  ) 

LINE(10*ZF+A,10*ZF+B)-(36  0*ZF+A,25*ZF+B)  ,  1,BF 

LINE(175*ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 

LINE(195*ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN 

113: 

REM  hhq  corps  supply  command  #113 

U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$~" CORPS  SUPPLY  COMMAND" 

LINE  (10*ZF+A,100*ZF+B)-(360*ZF+A,100*ZF+B) 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B)  , 1 , BF 

LINE(175*ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 

LINE(195*ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN 

114: 

REM  hhq  aviation  brigade  #114 

U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$-"AVIATI0N  BRIGADE" 

CIRCLE(100*ZF+A,65»ZF+B)  ,  35*ZF  ,  1  ,  56*PI/  180  ,  304 »PI/  180 

CIRCLE(270*ZF+A,65*ZF+B) , 35*ZF , 1 , 236 »PI/ 180 , 124 *PI / 180 

LINE(120*ZF+A,52»ZF+B)-(250*ZF+A,78*ZF+B) 

LINE(  120*ZF+A  ,  78*ZF+B  )-(  25  0»ZF+A  ,  52*ZF+B  ) 

PAINT  (1 00  *ZF+A,  65  *ZF+B),1:  PAINT  (  270  *ZF+A,  65  *ZF+B  )  ,1 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,25»ZF+B) ,1,BF 

LINE(  175*ZF+A,28*ZF+B  )-(  195*ZF+A , 37*ZF+B  ) 

LINE(195»ZF+A,28»ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN 

115: 

REM  hhq  division  command  #115 
U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$="DIVISI0N  COMMAND" 

LINE(10*ZF+A,10»ZF+B)-(360»ZF+A,25*ZF+B) ,  1  ,  BF 
LINE(15  0*ZF+A,36*ZF+B)-(  17  0*ZF+A  ,  42*ZF+B  ) 
LINE(17  0»ZF+A,36»ZF+B  )-  (  150»ZF+A  ,  42*ZF+B  ) 
LINE(200*ZF+A,36»ZF+B)-(22  0*ZF+A,4  2*ZF+B) 
LINE(220»ZF+A,36»ZF+B)-(200»ZF+A,42*ZF+B) 
RETURN 
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116: 

REM  hhq  mountaineer  brigade  #116 

U-5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$- "MOUNTAINEER  BRIGADE" 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) 

LINE  (10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(360»ZF+A,120*ZF+B) ,  ,B 
LINE(  10»ZF+A  ,  10*ZF+B  )-(  360*ZF+A  ,  25*ZF+B  )  ,  1  ,BF 
LINE(152»ZF+A,120»ZF+B)-(182*ZF+A,10  0*ZF+B) 
LINE(  212*ZF+A  ,  120*ZF+B  )-( 182  *ZF+A  ,  100*ZF+B  ) 
PAINT  ( 165  »ZF+A,1 14  *ZF+B) 

LINE(175*ZF+A,28*ZF+B)-(195»ZF+A,37*ZF+B) 
LINE(  195*ZF+A,28»ZF+B  )-( 175*ZF+A , 37*ZF+B  ) 
RETURN 

117: 

REM  hhq  airborne  brigade  #117 

U-5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$-"AIRB0RNE  BRIGADE" 

CIRCLE(130»ZF+A,120*ZF+B)  ,  5  0»ZF  ,  1  ,  15»PI/  180  ,  165 *PI/  180 

CIRCLE(24  0»ZF+A,12  0»ZF+B)  ,50»ZF,1  ,  15  »PI  /  180  ,  165  *PI  /  180 

LINE(178*ZF+A,115*ZF+B)-(192»ZF+A,115»ZF+B) 

LINE(10»ZF+A,10*ZF+B)-(360»ZF+A,25»ZF+B)  ,  1,BF 

LINE(17  5»ZF+A,28»ZF+B)-(195»ZF+A,37»ZF+B) 

LINE(  195»ZF+A,28*ZF+B  )-( 175*ZF+A , 37»ZF+B  ) 

GOSUB  u4 

RETURN 

118: 

REM  hhq  mech  brigade  #118 

U»5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$-"MECH  BRIGADE" 

CIRCLE  (90*ZF+A,70»ZF+B)  , 48»ZF,1  ,90*PI/180  , 270*PI/180 

CIRCLE(280*ZF+A,7  0*ZF+B) ,  48*ZF,1 ,270*PI/180 , 90*PI/180 

LINE  (90»ZF+A,50»ZF+B)-(280»ZF+A,5  0*ZF+B) 

LINE  (9  0»ZF+A,9  0*ZF+B)-(280*ZF+A,90*ZF+B) 

GOSUB  u4 

LINE(10»ZF+A,10*ZF+B)-(360»ZF+A,25»ZF+B)  ,  1  ,BF 

LINE(175»ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 

LINE(195*ZF+A,28*ZF+B)-(175»ZF+A,37»ZF+B) 

RETURN 
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119: 

REM  hhq   armd  brigade  #119 

U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$= "ARMORED  BRIGADE" 

CIRCLE  (90*ZF+A,65»ZF+B)  ,  48*ZF  ,  1  ,  90»PI/  180  ,  270 *PI/  180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48*ZF  ,  1 ,  270  *PI/  180  ,  90»PI  /  180 

LINE  (90»ZF+A,4  5*ZF+B)-(280*ZF+A,4  5*ZF+B) 

LINE  (90*ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 

LINE(10*ZF+A,10*ZF+B)-(360»ZF+A,25*ZF+B)  ,1,BF 

LINE(175»ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 

LINE(195*ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN 

120: 

REM  hhq  air  cavalry  combat  brigade  #120 

U=5:U1$="HHQ  AIR  CAVALRY  COMBAT  BRIGADE" :U2$=" " 

CIRCLE ( 100 *ZF+A,  65  *ZF+B  )  ,  35*ZF  ,  1  ,  56*PI/  180  ,  304  *PI  /  180 

CIRCLE(270*ZF+A,65*ZF+B)  ,  35*ZF  ,  1  ,  236*PI/  180  ,  124 *PI/  180 

LINE(120»ZF+A,52»ZF+B)-(25  0*ZF+A,78*ZF+B) 

LINE ( 120 *ZF+A,78*ZF+B)-( 250 *ZF+A,52*ZF+B) 

LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 

PAINT(100*ZF+A,65*ZF+B)  ,  1 :  PAINT (  270 *ZF+A  ,  65 *ZF+B  )  ,1 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,30*ZF+B) ,  1,BF 

LINE(  170*ZF+A  ,  36*ZF+B  )-( 190*ZF+A  ,  42*ZF+B  ) 

LINE(190*ZF+A,36*ZF+B)-(170*ZF+A,42*ZF+B) 

RETURN 

121: 

REM   ew  company  #121 

U=5:U1$-"EW  COMPANY" :U2$="" 

LINE  (10*ZF+A,120»ZF+B)-(185*ZF+A,50*ZF+B) 

LINE  (  185  *ZF+A,80*ZF+B)-(  360  *ZF+A , 10»ZF+B ) 

LINE(185*ZF+A,80*ZF+B)-(185»ZF+A,5  0*ZF+B) 

RETURN 

122: 

REM   signal  company  #122 

U= 5 :U1$=" SIGNAL  COMPANY" :U2$=" " 

LINE  (10*ZF+A,10*ZF+B)-(185*ZF+A,80*ZF+B) 

LINE(185»ZF+A,50»ZF+B)-(360»ZF+A,120*ZF+B) 

LINE(185*ZF+A,80»ZF+B)-(185*ZF+A,5  0*ZF+B) 

RETURN 

123: 

REM  fernspaeh  co  #123 

U-5:U1$="FERNSPAEH  KOMPANIE" :U2$="" 

LINE(10»ZF+A,120*ZF+B)-(360»ZF+A,10*ZF+B) 

LINE(5  0»ZF+A,6  5»ZF+B)-(32  0»ZF+A,65»ZF+B) 
LINE(280»ZF+A,4  5»ZF+B)-(320»ZF+A,65»ZF+B) 
LINE(280»ZF+A,85»ZF+B)-(32  0»ZF+A,65»ZF+B) 
RETURN 
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124: 

REM  armored  engineer  company  #124 

Ul$= "ARMORED  ENGINEER  COMPANY" : U2$=" " 

CIRCLE  (90*ZF+A,65*ZF+B) , 48*ZF , 1 , 90*PI/ 180 , 270 *PI / 180 

CIRCLE(280*ZF+A,65»ZF+B)  , 48*ZF,1  ,  270  »PI/  180  ,  90*PI  /  180 

LINE(90*ZF+A,45»ZF+B)-(280*ZF+A,4  5*ZF+B) 

LINE(90*ZF+A,85»ZF+B)-(280»ZF+A,85*ZF+B) 

LINE  (90*ZF+A,55*ZF+B)-(280*ZF+A,55*ZF+B) 

LINE  (90*ZF+A,55*ZF+B)-(90*ZF+A,75*ZF+B) 

LINE  (180*ZF+A,55*ZF+B)-(180*ZF+A,7  5*ZF+B) 

LINE  (280*ZF+A,5  5*ZF+B)-(280*ZF+A,75»ZF+B) 

RETURN 

125: 

REM  adjudant  general  #125 
U-5:U1$="ADJUDANT  GENERAL" :U2$="" 
LINE(70*ZF+A,100»ZF+B)-(120»ZF+A,30*ZF+B) 
LINE(  12  0*ZF+A,30»ZF+B  )-(  17  0*ZF+A,  100*ZF+B  ) 
LINE(95*ZF+A,65»ZF+B)-(14  5*ZF+A,6  5*ZF+B) 
CIRCLE(24  0»ZF+A,85»ZF+B)  ,40»ZF,1,PI,2*PI 
CIRCLE(24  0*ZF+A,5  0»ZF+B)  ,  4  0*ZF  ,  1  ,  10/  180 *PI  ,PI 
LINE ( 2 0 0 ■ ZF+A , 5 0 *ZF+B ) - ( 2 0 0 « ZF+A , 85  * ZF+B  ) 
LINE(280*ZF+A,6  5*ZF+B)-(280*ZF+A,85*ZF+B) 
LINE(24  0*ZF+A,65*ZF+B)-(280»ZF+A,65»ZF+B) 
RETURN 

126: 

REM  engineer  co  #126 

U=5:U1$- "ENGINEER  COMPANY" :U2$»"" 

LINE  (90*ZF+A,5  5»ZF+B)-(280*ZF+A,5  5*ZF+B) 

LINE  (90*ZF+A,55»ZF+B)-(90»ZF+A,75*ZF+B) 

LINE  (180*ZF+A,5  5»ZF+B)-(180*ZF+A,75»ZF+B) 

LINE  (280*ZF+A,5  5»ZF+B)-(280*ZF+A,75*ZF+B) 

LINE  (10»ZF+A,10»ZF+B)-(360»ZF+A,120»ZF+B)  ,  ,B 

LINE(152»ZF+A,120»ZF+B)-(182*ZF+A,100*ZF+B) 

LINE(212*ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

PAINT(165»ZF+A,H4*ZF+B) 

RETURN 


201 


127: 

REM  chemical  co  #127 

U=5:U1$=" CHEMICAL  COMPANY" :U2$=" " 

CIRCLE  (80*ZF+A,50*ZF+B),30*ZF,3 

PAINT(80*ZF+A,5  0*ZF+B)  ,1,3 

CIRCLE  (290*ZF+A,50*ZF+B) ,30*ZF,3 

PAINT(2  90*ZF+A,5  0*ZF+B),1,3 

LINE  (290*ZF+A,100»ZF+B)-(98*ZF+A,4  0*ZF+B) 

LINE  (80*ZF+A,100*ZF+B)-(27  0*ZF+A,4  0*ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) ,  ,B 

LINE(152*ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

LINE(212*ZF+A,12  0*ZF+B)-(182*ZF+A,100*ZF+B) 

PAINT ( 165 »ZF+A,  114 *ZF+B  ) 

RETURN 

128: 

REM  support  co  #128 

U-5:U1$= "SUPPORT  COMPANY" :U2$=" " 

LINE(  10*ZF+A,  100*ZF+B  )-(  360*ZF+A  ,  120*ZF+B  )  ,  1  ,BF 

LINE(10*ZF+A,10»ZF+B)-(360»ZF+A,120*ZF+B),  ,B 

LINE(152*ZF+A,100*ZF+B)-(182*ZF+A,80*ZF+B) 

LINE(  212*ZF+A  ,  100*ZF+B  )-( 182*ZF+A  ,80*ZF+B  ) 

PAINT ( 165* ZF+A , 94*ZF+B ) 

RETURN 

129: 

REM  tragtier  co  #129 

U=5:U1$="TRAGTIER  KOMPANIE" :U2$=" " 

LINE(70*ZF+A,5  5*ZF+B)-(300*ZF+A,5  5*ZF+B) 

LINE(70*ZF+A,85*ZF+B)-(100»ZF+A,55*ZF+B) 

LINE(100*ZF+A,55*ZF+B)-(130*ZF+A,85*ZF+B) 
LINE(300*ZF+A,85*ZF+B)-(270*ZF+A,5  5*ZF+B) 
LINE(270*ZF+A,55*ZF+B)-(24  0*ZF+A,85*ZF+B) 
LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,120»ZF+B) ,  ,B 
LINE(  152*ZF+A,  12  0*ZF+B  )-(  182*ZF+A,  100*ZF+B  ) 
LINE ( 212 »ZF+A, 120 *ZF+B )-( 182 *ZF+A , 100* ZF+B ) 
PAINT ( 165 »ZF+A ,  114*ZF+B ) 
RETURN 
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130: 

REM  antitank  co  #130 

U-5:U1$- "ANTITANK  COMPANY" : U2$=" " 

LINE(10*ZF+A,120»ZF+B)-(185»ZF+A,10*ZF+B) 

LINE(185*ZF+A,10»ZF+B)-(360*ZF+A,120*ZF+B) 

LINE(  14  5*ZF+A,  60»ZF+B  )-( 185*ZF+A  ,  4  0*ZF+B  ) 

LINE(185*ZF+A,4  0*ZF+B)-(225»ZF+A,6  0*ZF+B) 

LINE(  14  5*ZF+A,80»ZF+B  )-(  185*ZF+A , 60*ZF+B  ) 

LINE(185*ZF+A,6  0*ZF+B)-(22  5*ZF+A,80*ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120»ZF+B) ,  ,B 

LINE(152*ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

LINE(212*ZF+A,120»ZF+B)-(182»ZF+A,100*ZF+B) 

PAINT(165*ZF+A,114*ZF+B) 

RETURN 

131: 

REM  airborne   mortar  co  #131 

U-5:U1$«"AIRB0RNE  MORTAR  COMPANY" : U2$=" " 

CIRCLE(130*ZF+A,12  0*ZF+B)  ,  50*ZF,1  ,  15*PI  /  180  ,  165 *PI  /  180 

CIRCLE(24  0»ZF+A,120»ZF+B) ,  50»ZF,1 , 15»PI / 180 , 165 *PI/ 180 

LINE(178*ZF+A,115*ZF+B)-(192*ZF+A,115*ZF+B) 

CIRCLE(182»ZF+A,80»ZF+B)  ,25»ZF 

LINE(  182*ZF+A,25»ZF+B  )-(  182*ZF+A , 70*ZF+B  ) 

LINE ( 1 5 2 " ZF+A , 5 0 * ZF+B ) - ( 2 1 2 " ZF+A , 5 0 * ZF+B  ) 

LINE(152*ZF+A,60»ZF+B)-(212*ZF+A,60*ZF+B) 

LINE(152*ZF+A,35»ZF+B)-(182*ZF+A,2  5*ZF+B) 

LINE(182»ZF+A,25»ZF+B)-(212*ZF+A,35*ZF+B) 

RETURN 

132: 

REM  airborne   engineer  co  #132 

U-5:U1$- "AIRBORNE  ENGINEER  COMPANY" : U2$=" " 

CIRCLE  (  130  «  ZF+A,  120  *  ZF+B)  ,  50*ZF,1  ,  15*PI/  180  ,  165 *PI  /  180 

CIRCLE(24  0*ZF+A,120»ZF+B)  ,  50*ZF,1  ,  15  *PI/  180  ,  165 *PI  /  180 

LINE(178»ZF+A,115»ZF+B)-(192*ZF+A,115*ZF+B) 

LINE  (  90*ZF+A,  5  5*ZF+B  )-(  280*ZF+A  ,  5  5»ZF+B  ) 

LINE  (90»ZF+A,5  5»ZF+B)-(90»ZF+A,75*ZF+B) 

LINE  (180*ZF+A,55*ZF+B)-(180»ZF+A,75»ZF+B) 

LINE  (280»ZF+A,5  5»ZF+B)-(280»ZF+A,7  5*ZF+B) 

RETURN 

133: 

REM  airborne  medical  co  #133 

U-5:U1$-"AIRB0RNE  MEDICAL  COMPANY" : U2$=" " 

CIRCLE ( 130 * ZF+A, 120* ZF+B) ,50*ZF,1 , 15»PI/ 180 , 165»PI/ 180 

CIRCLE(24  0»ZF+A,12  0*ZF+B)  , 50»ZF,1  ,  15*PI  /  180  ,  165  *PI  /  180 

LINE ( 178* ZF+A , 115 *ZF+B )-( .19 2* ZF+A , 115 *ZF+B  ) 

LINE  (10»ZF+A,65*ZF+B)-(36  0»ZF+A,65*ZF+B) 

LINE( 185»ZF+A,10*ZF+B)-(185*ZF+A,100*ZF+B) 

RETURN 
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134: 

REM  airborne  support  co  #134 

U=5:U1$» "AIRBORNE  SUPPLY  COMPANY" :U2$=" " 

CIRCLE(13Q*ZF+A,90*ZF+B)  ,  5  0*ZF  ,  1  ,  15»PI/  180  ,  165 *PI/  180 

CIRCLE(24  0*ZF+A,90*ZF+B)  ,  5  0*ZF  ,  1  ,  15*PI/  180  ,  165  *PI  /  180 

LINE(178*ZF+A,85*ZF+B)-(192*ZF+A,85»ZF+B) 

LINE  (10*ZF+A,100*ZF+B)-(360»ZF+A,120*ZF+B) ,1,BF 

RETURN 

135: 

REM  cavalry  troop  #135 

U=5 : Ul$= " CAVALRY  TROOP " : U2$= " " 

CIRCLE  (90*ZF+A,65*ZF+B),48*ZF,1,90»PI/180,270*PI/180 

CIRCLE(280*ZF+A,65*ZF+B)  ,  48»ZF  ,  1  ,  270  *PI  /  180  ,  90*PI  /  180 

LINE(90*ZF+A,4  5*ZF+B)-(280*ZF+A,45»ZF+B) 

LINE(90*ZF+A,85*ZF+B)-(280*ZF+A,85»ZF+B) 

LINE(  10*ZF+A  ,  120*ZF+B  )-(  36  0*ZF+A,  10*ZF+B  ) 

CIRCLE(130*ZF+A,120*ZF+B)  ,*50*ZF,  1 ,  15*PI/180  ,  165*PI/180 

CIRCLE(24  0*ZF+A,120*ZF+B)  ,  5  0*ZF  ,  1  ,  15*PI/  180  ,  165 *PI/  180 

LINE(178*ZF+A,H5*ZF+B)-(192*ZF+A,115*ZF+B) 

RETURN 

136: 

REM  liaison  squad  #136 

U«5:U1$="AVIATI0N  LIAISON" :U2$=" " 

CIRCLE  ( 100  »ZF+A,1 00  *ZF+B  )  ,  35*ZF  ,  1  ,  5  6*PI/  180  ,  304  *PI/  180 

CIRCLE(270*ZF+A,100*ZF+B)  ,35*ZF,  1 ,236*PI/180  ,  124*PI/180 

LINE(120*ZF+A,87*ZF+B)-(25  0*ZF+A,H3*ZF+B) 

LINE(12  0*ZF+A,113*ZF+B)-(25  0*ZF+A,87*ZF+B) 

PAINT(100*ZF+A,100*ZF+B)  ,  1 :  PAINT(  270»ZF+A  ,  100*ZF+B  )  ,1 

LINE(14  0*ZF+A,75*ZF+B)-(230*ZF+A,7  5*ZF+B) 

LINE(185*ZF+A,48*ZF+B)-(140»ZF+A,75*ZF+B) 

LINE  (185»ZF+A,48*ZF+B)-(  230  *ZF+A  ,  75*ZF+B  ) 

LINE(140*ZF+A,75»ZF+B)-(230*ZF+A,75*ZF+B) 

LINE(185*ZF+A,48*ZF+B)-(140»ZF+A,75*ZF+B) 

LINE(185»ZF+A,48»ZF+B)-(230*ZF+A,75»ZF+B) 

CIRCLE(80*ZF+A,40*ZF+B)  ,30*ZF 

CIRCLE(2  90»ZF+A,4  0*ZF+B)  , 30*ZF 

LINE ( 1 1 0 » ZF+A , 4 0 *ZF+B ) - ( 2 6 0 * ZF+A , 4 0 * ZF+B ) 

RETURN 
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137: 

REM  liaison  squad  #137 

U-5 :U1$-"AVIATI0N  LIAISON" :U2$-" " 

CIRCLE(100*ZF+A,100»ZF+B)  , 35»ZF,1  ,  56*PI / 180 , 304*PI / 180 

CIRCLE(270*ZF+A,100»ZF+B)  ,  35*ZF  ,  1  ,  236»PI/  180  ,  124 »P I  /  180 

LINE(120*ZF+A,87*ZF+B)-(25  0*ZF+A,113*ZF+B) 

LINE(12  0*ZF+A,H3*ZF+B)-(25  0*ZF+A,87*ZF+B) 

PAINT(100*ZF+A,100*ZF+B)  ,  1  :  PAINT  (  27  0*ZF+A  ,  100»ZF+B  )  ,1 

LINE(14  0*ZF+A,75*ZF+B)-(230*ZF+A,75*ZF+B) 

LINE(185*ZF+A,48*ZF+B)-(14  0*ZF+A,75*ZF+B) 

LINE( 185*ZF+A , 48*ZF+B )- ( 230*ZF+A , 7  5 *ZF+B ) 

PAINT(185*ZF+A,6  0*ZF+B)  ,1 

CIRCLE(80*ZF+A,4  0*ZF+B)  ,  30*ZF 

CIRCLE(290*ZF+A,40»ZF+B)  ,30*ZF 

LINE(110*ZF+A,40*ZF+B)-(260*ZF+A,4  0*ZF+B) 

RETURN 

138: 

REM  f lugplatzkommandantur   #138 

U-5 :U1$-"FIELD  AIRPORT" :U2$-" " 

CIRCLE(100*ZF+A,100»ZF+B)  ,  35*ZF  ,  1  ,  56»PI  /  180  ,  304 *PI  /  180 

CIRCLE(270»ZF+A,100*ZF+B)  ,  35»ZF,1  ,  236  *P  I  /  180  ,  124 *PI  /  180 

LINE(12  0*ZF+A,87»ZF+B)-(25  0»ZF+A,113*ZF+B) 

LINE(120»ZF+A,H3»ZF+B)-(250*ZF+A,87»ZF+B) 

PAINT(100»ZF+A,100*ZF+B)  ,  1  :  PAINT  (  27  0»ZF+A  ,  100*ZF+B  )  ,1 

LINE(182*ZF+A,15*ZF+B)-(122«ZF+A,35*ZF+B) 

LINE(182»ZF+A,15*ZF+B)-(242*ZF+A,35»ZF+B) 

LINE ( 1 5 0 »ZF+A , 4 0 " ZF+B ) - ( 1 5 0  * ZF+A , 80  * ZF+B ) 

LINE(150*ZF+A,65*ZF+B)-(220*ZF+A,40*ZF+B) 

LINE(162»ZF+A,6  0*ZF+B  )  -  (  22  0*ZF+A  ,  80* ZF+B  ) 

RETURN 

139: 

REM  brigade  maintenance  co  #139 

U-5 :U1$- "MAINTENANCE  COMPANY" :U2$-"" 

CIRCLE  (50»ZF+A,65*ZF+B)  ,  50*ZF,1  ,  27  0»PI  /  180  ,  9  0»PI  /  180 

CIRCLE  (320*ZF+A,65»ZF+B)  ,  50*ZF,1  ,  90*PI/  180  ,  270 *P I  /  180 

LINE  (100»ZF+A,65*ZF+B)-(270»ZF+A,65*ZF+B) 

RETURN 

140: 

REM  brigade  supply  co  #140 

U=5 :U1$="SUPPLY  COMPANY" :U2$=" " 

LINE  (10*ZF+A,10  0*ZF+B)-(36  0*ZF+A,100»ZF+B) 

RETURN 
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141: 

REM  antitank  co  #141 

U=5 : Ul$- "ANTITANK  COMPANY" : U2$= " " 

LINE(  10*ZF+A,  120*ZF+B  )-( 185*ZF+A,  10*ZF+B  ) 

LINE(  185*ZF+A  ,  10*ZF+B  )-(  360*ZF+A  ,  120*ZF+B  ) 
LINE(14  5*ZF+A,60*ZF+B)-(185*ZF+A,4  0*ZF+B) 

LINE(185*ZF+A,4  0*ZF+B)-(225»ZF+A,60*ZF+B) 
LINE(14  5*ZF+A,80*ZF+B)-(185*ZF+A,60*ZF+B) 
LINE(185*ZF+A,60*ZF+B)-(225*ZF+A,80*ZF+B) 
RETURN 

142: 

REM  engineer  company  #142 

U=5:U1$= "ENGINEER  COMPANY" :U2$=" " 

LINE  (90*ZF+A,55»ZF+B)-(280*ZF+A,  5  5*ZF+B) 

LINE  (90»ZF+A,5  5»ZF+B)-(90*ZF+A,75*ZF+B) 

LINE  (180*ZF+A,5  5*ZF+B)-(180*ZF+A,75*ZF+B) 

LINE  (280*ZF+A,55*ZF+B)-(280*ZF+A,75*ZF+B) 

RETURN 

143: 

REM  wehrgericht  #143 

U-0 : Ul$- "wehrger 1 cht " : U2$- " " 

CIRCLE(24  0*ZF+A,85*ZF+B)  ,40*ZF,1,PI,2*PI 

CIRCLE(240*ZF+A,50*ZF+B)  ,  4  0*ZF  ,  1  ,  10/  180 *PI  ,PI 

LINE(200*ZF+A,50*ZF+B)-(200*ZF+A,85*ZF+B) 

LINE(280*ZF+A,65*ZF+B)-(280*ZF+A,85*ZF+B) 

LINE(24  0*ZF+A,65*ZF+B)-(280*ZF+A,65*ZF+B) 

LINE(50*ZF+A,33*ZF+B)-(80*ZF+A,  103*ZF+B) 

LINE(80*ZF+A,103*ZF+B)-(110*ZF+A,65*ZF+BO 

LINE(  110*ZF+A,  65*ZF+B  )-( 14  0*ZF+A,  103*ZF+B  ) 

LINE(140*ZF+A,103*ZF+B)-(170»ZF+A,33*ZF+B) 

RETURN 

144: 

REM  hhq  Infantry  brigade  #144 
U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$=" INFANTRY  BRIGADE" 
GOSUB  u4 

LINE(10»ZF+A,10*ZF+B)-(360»ZF+A,25*ZF+B)  ,  1  ,BF 
LINE(17  0»ZF+A, 36»ZF+B  )  -  (  190*ZF+A  ,  42*ZF+B  ) 
LINE(190*ZF+A,36*ZF+B)-(170*ZF+A,42*ZF+B) 

RETURN 


206 


2 .    Source  Code  Program  INMILDAT 


REM 

REM 

REM 

REM 

REM 

REM 

DIM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM  ** 

REM  »« 

REM  *» 

REM  »» 

REM  *» 


program  INMILDAT 

INMILDAT  enables  the  user  to  define 

bution  of  systems  in  a  corps. 

INMILDAT  presents  all  available  tact 

prompts  for  the  number  of  systems  in 

respective  unit. 

N(150) ,UC(150) 

**  Variable  Directory 

auxiliary  variable  for  s 
auxiliary  variable  for  s 
auxiliary . string  variabl 
auxiliary  variable 
number  of 
auxiliary 


JUNE  1987 
the  distri- 

ical  signs  and 
the 


*  M 

*  M 


A 
B 

E$ 

Fl 

N(x) 

P2 

PI 

Q 

U 

Ul$ 

U2$ 

UC(x) 

ZF 


KM******** 

HMWHWHMHM* 

creen  pos. 
creen  pos. 
e 


M***M*****MMMMMXttttWW*MttMttMttttttttttttM*H**H*MttHMttH* 


l:PI-3. 14153 :X-0:ZF=1 


systems  in  unit 
variable  for  screen  pos 
mathematical  constant 
unit  code  number 
unit  size  code 
unit  description 
additional  description 
unit  code  number 
zoom  factor  for  graph 
REM 
REM 

KEY  OFF: SCREEN  2 
A-140:B-10:F1-0:P2= 
FOR  Q-21  TO  144 
11: 

INCR  X:UC(X)=Q 
CLS:GOSUB  tacsign 
LOCATE  18 
LOCATE  19 
E$-"  " 

LOCATE  23,25 

INPUT  "How  many  Systems  in  this  Unit 
IF  E$<>""  THEN  N(X)=VAL(E$)  ELSE  DECR 
INPUT  "Entry  o] 
PRINT  " 
PRINT  " 
E$="N"  THEN  11 


*  H  * 
*  H 

*  *  H 
H  H 
M  M 
H  » 
H  * 
H  * 
K  H 
H  H 
M  M 
»  H 
H  tt 
H  H 
H  * 
H  H 

M  H   H 


20 
20 


PRINT 
PRINT 


Ul$ 
U2$ 


'  ;E$ 
X 


LOCATE 

24  ,31 

LOCATE 

22,20 

LOCATE 

23,20 

IF  E$-' 

»n"  OR 

NEXT  Q 

ES 
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12: 

CLS: LOCATE  5,25 

INPUT  "Do  you  want  a  Reserve  " ; E$ 

IF  E$-"N"  OR  E$="n"  THEN  13 

INCR  X: LOCATE  7,25 

INPUT  "In  per  cent  or  absolute  (p/a)  ";E$ 

IF  E$="P"  OR  E$="p"  THEN  UC( X )-198 : LOCATE  10,15:_ 

INPUT  "Enter  Percentage  (e.g.:  25  ):  ";N(X):_ 

N(X)=N(X)/100:GOTO  14 
IF  E$="A"  OR  E$="a"  THEN  UC( X )=199 : LOCATE  10,15:_ 

INPUT  "Enter  Number  :  ";N(X):GOTO  14 
GOTO  12 

13: 

INCR  X:UC(X)=200:N(X)=99 

14: 

CLS: LOCATE  5,23 

PRINT  "To  save  Data,  name  File." 

locate  7,20 

PRINT  "Default  Filename  is  DISTRIBN. " 

LOCATE  11,10 

PRINT  "To  accept  default  press  ENTER  key  or"; 

INPUT  "  enter  Filename  ",F$ 

IF  F$=""  THEN  F$="DISTRIBN" 

OPEN  "0",1,F$ 

WRITE#1,X 

FOR  A-l  TO  X 

¥RITE#1,UC(A),N(A) 
NEXT  A 
CLOSE  1 

CLS: LOCATE  2 0,30: PRINT  "PROGRAM  END" 
END 

R  EM   *tt****H*MHHttH***HHHHMH*HHHH*HH*tftt*»Htt**ttHHHHHtttt*H* 
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REM  *****   Subroutine  to  draw  one  Tactical  Sign   ***** 

REM 

REM  necc.  input:  zoom  factor  0  <  ZF  <=  1 

REM horizl.  start  coord.  0  <  A  <  550 

REM  vertcl.  start  coord.  0  <  B  <  150 

REM  value  for  constant    PI=3. 141593 

REM  value  for  unit  type   0  <=  Q  <  =  144 

REM 

tacsign: 

IF  Q>144  THEN  RETURN 

IF  Q>121  THEN  companies2 

IF  Q>100  THEN  companiesl 

IF  Q>40  THEN  battalions 

IF  Q-21  THEN  GOSUB  21: GOTO  box 

IF  0=22  THEN  GOSUB  22: GOTO  box 

IF  0=23  THEN  GOSUB  23: GOTO  box 

IF  Q=24  THEN  GOSUB  24: GOTO  box 

IF  Q-25  THEN  GOSUB  25: GOTO  box 

IF  Q-26  THEN  GOSUB  26: GOTO  box 

IF  Q-27  THEN  GOSUB  27: GOTO  box 

IF  Q-28  THEN  GOSUB  28: GOTO  box 

IF  Q=29  THEN  GOSUB  29: GOTO  box 

IF  0=30  THEN  GOSUB  30: GOTO  box 

IF  Q-31  THEN  INCR  Q 

IF  0=32  THEN  INCR  Q 

IF  0=33  THEN  INCR  Q 

IF  0=34  THEN  INCR  Q 

IF  Q=35  THEN  INCR  Q 

IF  Q=36  THEN  INCR  Q 

IF  Q=37  THEN  INCR  Q 

IF  Q=38  THEN  INCR  Q 

IF  Q=39  THEN  INCR  Q 

IF  Q=40  THEN  INCR  Q 

battalions : 

IF  0=41  THEN  GOSUB  41: GOTO  box 

IF  Q=42  THEN  GOSUB  42: GOTO  box 

IF  0=43  THEN  GOSUB  43: GOTO  box 

IF  Q=44  THEN  GOSUB  44: GOTO  box 

IF  0=45  THEN  GOSUB  45: GOTO  box 

IF  Q=46  THEN  GOSUB  46: GOTO  box 

IF  0=47  THEN  GOSUB  47: GOTO  box 

IF  Q=48  THEN  GOSUB  48: GOTO  box 

IF  0=49  THEN  GOSUB  49: GOTO  box 

IF  Q=50  THEN  GOSUB  50: GOTO  box 

IF  0=51  THEN  GOSUB  51: GOTO  box 

IF  0=52  THEN  GOSUB  52: GOTO  box 

IF  Q=53  THEN  GOSUB  53: GOTO  box 

IF  Q=54  THEN  GOSUB  54: GOTO  box 

IF  Q=55  THEN  GOSUB  55: GOTO  box 

IF  Q=56  THEN  GOSUB  56: GOTO  box 

IF  Q=57  THEN  GOSUB  57: GOTO  box 
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IF 

Q  =  58 

THEN 

GOSUB 

58 

IF 

Q=59 

THEN 

GOSUB 

59 

IF 

Q  =  60 

THEN 

GOSUB 

60 

IF 

Q  =  61 

THEN 

GOSUB 

61 

IF 

Q=62 

THEN 

GOSUB 

62 

IF 

Q=63 

THEN 

GOSUB 

63 

IF 

Q=64 

THEN 

GOSUB 

64 

IF 

Q=65 

THEN 

GOSUB 

65 

IF 

Q  =  66 

THEN 

GOSUB 

66 

IF 

Q  =  67 

THEN 

GOSUB 

67 

IF 

Q=68 

THEN 

GOSUB 

68 

IF 

Q=69 

THEN 

GOSUB 

69 

IF 

Q=70 

THEN 

GOSUB 

70 

IF 

Q=71 

THEN 

GOSUB 

71 

IF 

Q=72 

THEN 

GOSUB 

72 

IF 

Q=73 

THEN 

GOSUB 

73 

IF 

Q=74 

THEN 

GOSUB 

74 

IF 

Q=75 

THEN 

GOSUB 

75 

IF 

Q=76 

THEN 

GOSUB 

76 

IF 

Q=77 

THEN 

GOSUB 

77 

IF 

Q=78 

THEN 

GOSUB 

78 

IF 

Q=79 

THEN 

GOSUB 

79 

IF 

Q=80 

THEN 

GOSUB 

80 

IF 

Q=81 

THEN 

GOSUB 

81 

IF 

Q=82 

THEN 

GOSUB 

82 

IF 

Q=83 

THEN 

GOSUB 

83 

IF 

Q=84 

THEN 

GOSUB 

84 

IF 

Q=85 

THEN 

GOSUB 

85 

IF 

0=86 

THEN 

GOSUB 

86 

IF 

Q=87 

THEN 

GOSUB 

87 

IF 

Q=88 

THEN 

GOSUB 

88 

IF 

Q-89 

THEN 

GOSUB 

89 

IF 

Q=90 

THEN 

INCR  I 

3 

IF 

Q  =  91 

THEN 

INCR  I 

3 

IF 

Q  =  92 

THEN 

INCR  I 

3 

IF 

Q=93 

THEN 

INCR  I 

3 

IF 

Q=94 

THEN 

INCR 

3 

IF 

Q  =  95 

THEN 

INCR 

3 

IF 

Q  =  96 

THEN 

INCR 

3 

IF 

Q=97 

THEN 

INCR 

3 

IF 

Q=98 

THEN 

INCR 

0 

IF 

Q=99 

THEN 

INCR 

3 

IF 

Q-100  THEN  INCR 

Q 

GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 


box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
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companiesl : 
IF  0=101  THEN 

Q-102 

0  =  103 

0  =  104 

0  =  105 

0  =  106 

0  =  107 

0  =  108 

0  =  109 

0  =  110 

0  =  111 

0  =  112 

0  =  113 

0  =  114 

0  =  115 

0  =  116 

0  =  117 

0  =  118 

0  =  119 

0  =  120 

0=121 
companies2 : 
IF  0=122  THEN 

0  =  123 

0  =  124 

0  =  125 

0  =  126 

0=127 

0=128 

0  =  129 

0  =  130 

0  =  131 

0  =  132 

0  =  133 

0  =  134 

0  =  135 

0  =  136 

0  =  137 

0  =  138 

0  =  139 

0=140 

0=141 

0  =  142 

0  =  143 

0  =  144 
RETURN 
Ssegment 
REM 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 

GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB. 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


101: 

102: 

103: 

104: 

105: 

106: 

107: 

108: 

109: 

110: 

111: 

112: 

113: 

114: 

115: 

116: 

117: 

118: 

119: 

120 

121 

122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 


GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

:GOTO 

:GOTO 

:GOTO 

:GOTO 

:GOTO 

:GOTO 

:G0T0 


box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 

box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
box 
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box: 

LINE  (10*ZF+A,10*ZF+B)-(360 

IF  U-l  THEN  LINE(155*ZF+A,1 
LINE(175*ZF+A,1 
LINE(195*ZF+A,1 
LINE(215»ZF+A,1 

IF  U=2  THEN  LINE(175*ZF+A,1 
LINE(195*ZF+A,1 

IF  U-3  THEN  LINE(165»ZF+A,1 
LINE(185*ZF+A,1 
LINE  (205*ZF+A, 

IF  U=4  THEN  LINE(175*ZF+A,1 
LINE  (195»ZF+A, 
THEN  LINE(185*ZF+A,1 
THEN  LOCATE  B/8+17* 
1"  THEN  12  0  ELSE  PR I 


*ZF+A,12 
*ZF+B)-( 
»ZF+B)-( 
*ZF+B)-( 
*ZF+B)-( 
*ZF+B)-( 
*ZF+B)-( 
*ZF+B)-( 
»ZF+B)-( 
1*ZF+B)- 
»ZF+B)-( 
1»ZF+B)- 
*ZF+B)-( 
ZF, A/8+5 
NT  E$ 


0*ZF+B),  ,B 

175*ZF+A,8* 

155*ZF+A,8* 

215*ZF+A,8* 

195*ZF+A,8* 

195*ZF+A,8* 

175*ZF+A,8* 

165*ZF+A 

185*ZF+A 

(205»ZF+A,7 

175*ZF+A,7* 

(195»ZF+A,7 

185*ZF+A,7* 

4»ZF 


,7* 
,7* 


ZF+B) 
ZF+B) 
ZF+B) 
ZF+B) 
ZF+B) 
ZF+B) 
ZF+B) 
ZF+B) 
♦♦ZF+B 
ZF+B) 
*ZF+B 
ZF+B) 


IF  U=5 

IF  Pl-1 

IF  E$=" 

120: 

RETURN 

REM  *************************************************** 


u4  : 
LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) 

LINE(10*ZF+A,120*ZF+B)-(360»ZF+A,10*ZF+B) 

RETURN 

REM 


**************************************************** 
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21  : 

REM  anti  aircraft  regiment  (corps)  #21 
U1$-"ANTI  AIRCRAFT  DEFENCE  REGIMENT" :U2$-" " :U-3 
CIRCLE  (207*ZF+A,50*ZF+B) ,_ 

14  0*ZF,1 ,  138*P 1/180, 223 *P 1/180 
CIRCLE  (186*ZF+A,175*ZF+B) ,_ 

220»ZF, 1,39 *PI/ 180, 142 *PI/ 180 
CIRCLE  (140»ZF+A,105*ZF+B) ,_ 

14*ZFfl,90*PI/180,270*PI/180 

circle  (220»zf+a,105*zf+b) , 

i4*zf,i  ,  27o*pi/iso,9o*pi/i8o 
line(14  0*zf+a,98»zf+b)-(22  0*zf+a,98*zf+b) 
line  (140*zf+a,112*zf+b)-(22  0*zf+a,112*zf+b) 
line  (76*zf+a,4  5*zf+b)-(206*zf+a,45*zf+b) 
line  (156*zf+a,65*zf+b)-(286*zf+a,65*zf+b) 
line  (206»zf+a,45*zf+b)-(156*zf+a,65*zf+b) 
line  (182*zf+a,101*zf+b)-(168*zf+a,104*zf+b) 
line  (182»zf+a,101*zf+b)-(196*zf+a,104*zf+b) 
line  ( 182»zf+a  ,  106*zf+b  )-  (  168»zf+a  ,  109*zf+b  ) 
line  (182»zf+a,106*zf+b)-(196*zf+a,109»zf+b) 
line(130»zf+a,15*zf+b)-(15  0*zf+a,25*zf+b) 
line(150»zf+a,15»zf+b)-(130»zf+a,25*zf+b) 
line(175«zf+a,15«zf+b)-(195*zf+a,25*zf+b) 
line ( 1 9 5 ■ zf+a , 1 5 « zf+b ) - ( 1 7 5  * zf+a , 2 5 » zf+b ) 
line(22  0*zf+a,15*zf+b)-(24  0*zf+a,25»zf+b) 
line (  22 0* zf+a,  2  5 ♦♦zf+b  )-(  24  0 « zf+a  ,  15 *zf+b  ) 

RETURN 

22: 

REM  anti  aircraft  regiment  (divisional)  #22 
U1$-"ANTI  AIRCRAFT  DEFENCE  REGIMENT" : U2$»" ": U=3 
CIRCLE  (207»ZF+A,50»ZF+B) ,_ 

14  0»ZF,1  ,  137 *P 1/180  ,  223*PI/180 
CIRCLE  (186»ZF+A,175*ZF+B) ,_ 

220*ZF,1,39*PI/180,142*PI/180 
CIRCLE  (140*ZF+A,105»ZF+B) ,_ 

14*ZF,lf90*PI/180,270*PI/180 
CIRCLE  (220»ZF+A,105*ZF+B) ,_ 

14»ZF,lt270*PI/180,90*PI/180 
LINE(  14  0*ZF+A,98*ZF+B)-(22  0*ZF+A,98*ZF+B) 
LINE  (140*ZF+A,112*ZF+B)-(22  0*ZF+A,112*ZF+B) 
LINE  (76 "ZF+A, 4 5 "ZF+B  )-  (  2  06*ZF+A  ,  4  5  "ZF+B  ) 
LINE  (156"ZF+A,65"ZF+B)-(286"ZF+A,65"ZF+B) 
LINE  (2 06 "ZF+A, 4 5 "ZF+B  )-  (  156"ZF+A  ,  6  5 "ZF+B  ) 
CIRCLE( 182 "ZF+A, 105 "ZF+B)  ,  10"ZF,3 
PAINT (186 ♦♦ZF+A,  105 "ZF+B)  ,1,3 
LINE(15  0"ZF+A,15"ZF+B)-( 170 "ZF+A, 25 "ZF+B) 
LINE(17  0"ZF+A,15"ZF+B)-(150"ZF+A,2  5"ZF+B) 
LINE( 200 "ZF+A,15"ZF+B)-( 22  0 « ZF+A, 2 5 "ZF+B) 
LINE(200"ZF+A, 25 "ZF+B)- (220 "ZF+A, 15 "ZF+B) 
RETURN 
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23: 

REM  aviation  regiment  #  23 
U=3:U1$-"AVIATI0N  REGIMENT" :U2$="" 
CIRCLE(100*ZF+A,100*ZF+B)  , 

35*ZF , 1 , 56 *PI / 180 , 304 *PI / 180 
CIRCLE(270»ZF+A,100*ZF+B)  ,_ 

35*ZF,1,236*PI/180,124»PI/180 
LINE(120*ZF+A,87*ZF+B)-(250*ZF+A,113*ZF+B) 
LINE(120*ZF+A,113*ZF+B)-(250*ZF+A,87*ZF+B) 
PAINT(100*ZF+A,100*ZF+B)  ,1 
PAINT ( 270 *ZF+A,100*ZF+B)  ,1 
CIRCLE(185»ZF+A,50*ZF+B)  ,70*ZF 
LINE  (135»ZF+A,31*ZF+B)-(237*ZF+A,69»ZF+B) 
LINE(136*ZF+A,69*ZF+B)-(235*ZF+A,31*ZF+B) 
LINE  (185»ZF+A,22*ZF+B)-(185*ZF+A,78*ZF+B) 
LINE  ( 115*ZF+A  ,  50*ZF+B  )-(  25  5*ZF+A  , 50*ZF+B  ) 
LINE  (30*ZF+A,10*ZF+B)-(30»ZF+A,12  0*ZF+B) 
RETURN 

24: 

REM  aviation  regiment  #24 
U=3:U1$-"AVIATI0N  REGIMENT" : U2$=" " 
CIRCLE(100*ZF+A,100*ZF+B)  ,_ 

35*ZF,1,56»PI/180,304*PI/180 
CIRCLE(270»ZF+A,100*ZF+B)  ,_ 

35 *ZF,  1,  236 *PI/  180, 124  »P  1/180 
LINE(  120*ZF+A,87*ZF+B  )-(  25  0*ZF+A,  113*ZF+B  ) 
LINE(  12  0*ZF+A,  113*ZF+B  )- (  250»ZF+A  ,  87*ZF+B  ) 
PAINT(100*ZF+A,100*ZF+B)  ,1 
PAINT(270»ZF+A,100*ZF+B)  ,1 
CIRCLE(180»ZF+A,5  0*ZF+B)  , 70*ZF 
LINE  (130»ZF+A,31*ZF+B)-(232»ZF+A,69»ZF+B) 
LINE(131*ZF+A,69*ZF+B)-(230*ZF+A,31*ZF+B) 
LINE  ( 180*ZF+A  ,  22*ZF+B  )-  ( 180*ZF+A  ,  78*ZF+B  ) 
LINE  (110»ZF+A,50*ZF+B)-(25  0*ZF+A,5  0*ZF+B) 
RETURN 
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25: 

REM  combat  aviation  regiment  #25 
U-3:U1$=" COMBAT  AVIATION  REGIMENT" : U2$=" " 
CIRCLE(100*ZF+A,100*ZF+B)  ,_ 

35»ZF,1,56*PI/180,304»PI/180 
CIRCLE(270*ZF+A,100*ZF+B)  ,_ 

35»ZF,1,236*PI/180,124*PI/180 

LINE(12  0*ZF+A,87*ZF+B)-(250*ZF+A,113*ZF+B) 
LINE(120»ZF+A,113*ZF+B)-(25  0*ZF+A,87»ZF+B) 

LINE(10*ZF+A,120*ZF+B)-(180*ZF+A,10»ZF+B) 
LINE ( 360 *ZF+A,120*ZF+B)-(180*ZF+A,10*ZF+B) 
PAINT(100*ZF+A,100»ZF+B)  ,1 
PAINT(27  0*ZF+A,100*ZF+B)  ,1 

LINE(145»ZF+A,60*ZF+B)-(185»ZF+A,40»ZF+B) 
LINE(185*ZF+A,4  0*ZF+B)-(225*ZF+A,60»ZF+B) 

LINE(  14  5*ZF+A,80*ZF+B  )-(  185*ZF+A , 60*ZF+B  ) 
LINE(  185*ZF+A,60»ZF+B  )-(  22  5*ZF+A , 80*ZF+B  ) 

RETURN 

26: 

REM  armored  cavalry  regiment  #26 
U«3:U1$= "ARMORED  CAVALRY  REGIMENT" :U2$=" " 
CIRCLE  (90*ZF+A,65»ZF+B) ,_ 

48*ZF,1,9  0*PI/180,27  0*PI/180 
CIRCLE(280*ZF+A,65*ZF+B),_ 

48«ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,4  5*ZF+B)-(280*ZF+A,4  5»ZF+B) 
LINE(90»ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 
LINE(10»ZF+A,120»ZF+B)-(360*ZF+A,10*ZF+B) 
RETURN 

27: 

REM  military  intelligence  regiment  #27 
U-3:U1$-"MILITARY  INTELLIGENCE  REGIMENT" :U2$=" " 
LINE(22  0*ZF+A,30*ZF+B)-(26  0*ZF+A,30»ZF+B) 
LINE(22  0»ZF+A,100»ZF+B)-(26  0*ZF+A,100*ZF+B) 
LINE(80»ZF+A,30»ZF+B)-(80*ZF+A,10  0»ZF+B) 
LINE(  160»ZF+A,  30»ZF+B  )-(  160»ZF+A  ,  100*ZF+B  ) 
LINE(24  0»ZF+A,30»ZF+B)-(24  0*ZF+A,100»ZF+B) 
LINE  (80*ZF+A,30*ZF+B)-(  120»ZF+A  ,  60*ZF+B  ) 
LINE(120*ZF+A,60»ZF+B)-(160»ZF+A,30*ZF+B) 
RETURN 
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28: 

REM  field  artillery  regiment  #28 
U=3:U1$="FIELD  ARTY  REGIMENT" : U2$=" " 
CIRCLE  (185*ZF+A,65»ZF+B)  ,30*ZF,3 
PAINT(185*ZF+A,65*ZF+B) ,1,3 
LINE(155*ZF+A,16»ZF+B)-(1'75*ZF+A,22*ZF+B) 
LINE(175*ZF+A,16*ZF+B)-(155*ZF+A,22*ZF+B) 
LINE(  195*ZF+A  ,  16*ZF+B  )-(  215*ZF+A,  22*ZF+B  ) 
LINE(215»ZF+A,16*ZF+B)-(195*ZF+A,22*ZF+B) 
RETURN 

29: 

REM  cav  reg  air  atk  #29 

U=3:U1$=" CAVALRY  REGIMENT  AIR  ATTACK" : U2$=" " 

CIRCLE(100*ZF+A,65*ZF+B) ,_ 

35*ZF,1,56»PI/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B)  ,^ 

35*ZF,1,236*PI/180,124*PI/180 
LINE(  120*ZF+A  ,  52*ZF+B  )-(  25  0*ZF+A,  78*ZF+B  ) 
LINE(120*ZF+A,78*ZF+B)-(250»ZF+A,52*ZF+B) 

LINE(  10»ZF+A  ,  120*ZF+B  )-(  360*ZF+A  , 10*ZF+B  ) 
PAINT(100*ZF+A,65*ZF+B) ,1 
PAINT(270*ZF+A,65*ZF+B) ,1 
RETURN 

30: 

REM   aviation  gp  #30 
U=0:U1$="AVIATION  GROUP" :U2$=" " 
CIRCLE(100*ZF+A,65*ZF+B)  ,_ 

35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270»ZF+A,65»ZF+B)  ,_ 

35 *ZF,  1,  236 *PI/  180, 124  »P  1/180 
LINE(120*ZF+A,52*ZF+B)-(250*ZF+A,78*ZF+B) 
LINE ( 120 *ZF+A,  78»ZF+B  )-(  25  0 *ZF+A,  52*ZF+B  ) 
PAINT ( 100 *ZF+A , 65*ZF+B  )  , 1 
PAINT(270*ZF+A,65*ZF+B)  ,1 

LINE(14  0*ZF+A,25»ZF+B)-(185»ZF+A,5  5*ZF+B) 
LINE(185*ZF+A,5  5*ZF+B)-(230*ZF+A,25*ZF+B) 
LINE(185»ZF+A,5  5»ZF+B)-(185*ZF+A,9  5»ZF+B) 
LINE(14  0»ZF+A,9  5*ZF+B  )-  (  230*ZF+A  ,  9  5  »ZF+B  ) 
RETURN 

41: 

REM  motorized  infantery  (divisional)  #41 

U-4:Ul$-"MOTORIZED  INFANRTY  BATTALION" : U2$=" " 

GOSUB  u4 

RETURN 
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42: 

REM  airborne  battalion  #42 
U=4:U1$="AIRB0RNE  BATTALION" : U2$=" " 
CIRCLE(130*ZF+A,120*ZF+B) ,_ 

5  0*ZF,1,15»PI/180,16  5*PI/180 
CIRCLE(24  0*ZF+A,120»ZF+B),_ 

5  0*ZF,1,15*PI/180,16  5*PI/180 
LINE(178»ZF+A,115*ZF+B)-(192*ZF+A,115*ZF+B) 
GOSUB  u4 
RETURN 

43: 

REM  mountaineer  battalion  #43 

U=4:U1$=" INFANTRY  BATTALION" 

U2$= "MOUNTAINEER  DIVISION" 

GOSUB  u4 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) ,  ,B 

LINE(152*ZF+A,120*ZF+B)-(i82»ZF+A,100*ZF+B) 

LINE(212»ZF+A,120*ZF+B)-(182»ZF+A,100*ZF+B) 

PAINT ( 165 »ZF+A,1 14 »ZF+B  ) 

RETURN 

44: 

REM  mechanized  infantery  battalion  (armored  brig)  #44 

U-4:U1$- "MECHANIZED  INFANTRY  BATTALION" 

U2$- "ARMORED  BRIGADE" 

CIRCLE  (90*ZF+A,65*ZF+B) ,_ 

48»ZF,1  , 90*PI/180,270*PI/180 
CIRCLE(280»ZF+A,65»ZF+B)  , 

48*ZF,1,270*PI/180,9  0*PI/180 
LINE(90*ZF+A,45»ZF+B)-(280*ZF+A,4  5»ZF+B) 
LINE(90*ZF+A,85»ZF+B)-(280»ZF+A,85*ZF+B) 
GOSUB  u4 
RETURN  . 

45: 

REM  mechanized  infantery  battalion  (infant,  brig)  #45 

U-4:U1$- "MECHANIZED  INFANTRY  BATTALION" 

U2$= "MECHANIZED  INFANTRY  BRIGADE" 

CIRCLE  (90»ZF+A,65*ZF+B) ,_ 

48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B  )  , 

48*ZF,1 ,270*PI/180 ,90*PI/180 
LINE(90*ZF+A,4  5*ZF+B)-(280»ZF+A,4  5*ZF+B) 
LINE(90»ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 
GOSUB  u4 

LINE(10*ZF+A,10*ZF+B)-(35*ZF+A,120»ZF+B)  ,  ,BF 
RETURN 
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46: 

REM  motorized  infantery  (divisional)  #46 

U-4:U1$= "MOTORIZED  INFANRTY  BATTALION" :U2$=" " 

LINE  ( 165*ZF+A , 90*ZF+B )-( 2  05 *ZF+A , 110*ZF+B ) 

LINE  (165*ZF+A,H0*ZF+B)-(205*ZF+A,90*ZF+B) 

GOSUB  u4 

RETURN 

47: 

REM  motorized  infantery  (aaslt  div)  #47 

U=4:U1$= "MOTORIZED  INFANRTY  BATTALION" : U2$=" " 

GOSUB  u4 

LINE(14  0*ZF+A,35*ZF+B)-(185»ZF+A,65*ZF+B) 

LINE (185*ZF+A,65*ZF+B)-(  230 *ZF+A , 35*ZF+B ) 

RETURN 

48: 

REM  airborne  infantry  battalion  #48 
U-4:U1$="AIRB0RNE  INFANTRY  BATTALION" :U2$-" " 
CIRCLE(185*ZF+A,80*ZF+B)  ,80*ZF 

LINE(50*ZF+A,60»ZF+B)-(280*ZF+A,115*ZF+B)  ,  0,BF 
LINE(  10*ZF+A  ,  10*ZF+B  )-( 127*ZF+A,  47*ZF+B  ) 
LINE(  360*ZF+A  ,  10*ZF+B  )-(  233*ZF+A  ,  47*ZF+B  ) 
LINE(10*ZF+A,120*ZF+B)-(127*ZF+A,73*ZF+B) 
LINE(360*ZF+A,120*ZF+B)-(233*ZF+A,73*ZF+B) 
LINE  ( 122*ZF+A,  60*ZF+B  )-( 185*ZF+A  ,  90*ZF+B  ) 
LINE(185»ZF+A,90*ZF+B)-(24  5*ZF+A,60*ZF+B) 
LINE(122*ZF+A,60*ZF+B)-(24  5*ZF+A,60*ZF+B) 
RETURN 

49: 

REM  armored  reconnaissance  battalion   #49 
U-4:U1$=" ARMORED  CAVALRY  BATTALION  ":U2$="" 
CIRCLE  (90*ZF+A,65»ZF+B),_ 

48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B) , 

48*ZF,1,270*PI/180,9  0*PI/180 
LINE  (90*ZF+A,4  5»ZF+B)-(280*ZF+A,4  5*ZF+B) 
LINE  (90»ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 
LINE  (10*ZF+A,120*ZF+B)-(360*ZF+A,10»ZF+B) 
RETURN 
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50: 

REM  air  cavalry  squadron  #50 
U-4:U1$-"AIR  CAVALRY  SQUADRON" : U2$="" 
CIRCLE(100*ZF+A,65*ZF+B) ,_ 

35*ZF,1,5  6*PI/180,304*PI/180 
CIRCLE(270*ZF+A,65*ZF+B)  ,_ 

35*ZF,1,236*PI/180,124*PI/180 

LINE(120*ZF+A,52»ZF+B)-(25  0*ZF+A,78*ZF+B) 
LINE(120*ZF+A,78*ZF+B)-(25  0*ZF+A,52»ZF+B) 
LINE(  10»ZF+A,  120*ZF+B  )-(  36  0*ZF+A,  10*ZF+B  ) 
PAINT(100*ZF+A,65*ZF+B)  ,1 
PAINT(270*ZF+A,65*ZF+B)  ,1 
RETURN 

51: 

REM  armored  battalion  (mech.  inf.  brig)  #51 

U=4:U1$- "ARMORED  BATTALION" 

U2$- "MECHANIZED  INFANTRY  BRIGADE" 

CIRCLE  (90»ZF+A,65»ZF+B) ,_ 

48*ZF,1,9  0»PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B)  , 

48*ZF,1,270»PI/180,9  0*PI/180 
LINE(90*ZF+A,4  5»ZF+B)-(280*ZF+A,4  5»ZF+B) 
LINE(90*ZF+A,85*ZF+B)-(280»ZF+A,85»ZF+B) 
RETURN 

52: 

REM  armored   battalion  (armored  brig)  #52 
U-4:U1$- "ARMORED  BATTALION" : U2$-"ARM0RED  BRIGADE" 
CIRCLE  (90»ZF+A,65»ZF+B)  ,_ 

48*ZF,1,90»PI/180,27  0*PI/180 
CIRCLE(280*ZF+A,65»ZF+B)  ,_ 

48»ZF,1  ,27  0 »P  1/180  , 90»PI/180 
LINE  (  90*ZF+A  ,  4  5»ZF+B  )-  (  280*ZF+A  ,  45»ZF+B  ) 
LINE  (90»ZF+A,85*ZF+B)-(280*ZF+A,85»ZF+B) 
LINE  (10*ZF+A,10*ZF+B)-(30*ZF+A,120»ZF+B) , ,BF 

RETURN 
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53: 

REM  armored   battalion  (airborne  brig)  #53 
U=4:U1$=" ARMORED  BATTALION" :U2$= "AIRBORNE  BRIGADE" 
CIRCLE  (90*ZF+A,65*ZF+B),_ 

48*ZF,1,90*PI/180,27  0*PI/180 
CIRCLE(280*ZF+A,65*ZF+B) ,_ 

48*ZF,1,270»PI/180,90*PI/180 
LINE  (90*ZF+A,45*ZF+B)-(280*ZF+A,45*ZF+B) 
LINE  (90*ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 
CIRCLE(130*ZF+A,120*ZF+B)  ,_ 

50*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,120*ZF+B)  , 

50*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,115*ZF+B)-(192*ZF+A,115*ZF+B) 
RETURN 

54: 

REM  attack  helicopter  battalion  #54 
U-4:U1$-"ATTACK  HELICOPTER  BATTALION" :U2$=" " 
CIRCLE  (90*ZF+A,65*ZF+B),_ 

60*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65»ZF+B)  ,_ 

60*ZF,1,270*PI/180,90*PI/180 
LINE(90*ZF+A,40*ZF+B)-(280»ZF+A,4  0*ZF+B) 
LINE(  90*ZF+A,  90*ZF+B  )-(  280*ZF+A,  9  0*ZF+B  ) 
CIRCLE  (1 00  *ZF+A,  65  *ZF+B),_ 

35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,65»ZF+B)  ,_ 

35*ZF,1,236*PI/180,12  4*PI/180 
LINE(120*ZF+A,52*ZF+B)-(25  0»ZF+A,78*ZF+B) 
LINE(120»ZF+A,78*ZF+B)-(25  0*ZF+A,52»ZF+B) 
PAINT(100*ZF+A,65*ZF+B)  ,1 
PAINT(270*ZF+A,65*ZF+B)  ,1 
RETURN 

55: 

REM  field  artillery  battalion  #55 

U«4:U1$-"FIELD  ARTY  BATTALION" : U2$=" " 

CIRCLE  (185*ZF+A,65*ZF+B) ,30»ZF,3 

PAINT(185»ZF+A,6  5»ZF+B)  ,1,3 

RETURN 

56: 

REM  field  artilley  battalion  #56 

U-4:U1$="FIELD  ARTILLERY  BATTALION" : U2$=" " 

CIRCLE  (185*ZF+A,65»ZF+B) ,  30*ZF,3 

PAINT (  185*ZF+A,65»ZF+B  ) 

LINE  (10*ZF+A,10*ZF+B)-(360»ZF+A,120*ZF+B) 

LINE  (10»ZF+A,12  0»ZF+B)-(360*ZF+A,10»ZF+B) 
RETURN 
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57: 

REM  field  artilley  battalion  #57 

U-4:U1$="FIELD  ARTILLERY  BATTALION" : U2$=" " 

CIRCLE  (185*ZF+A,65*ZF+B)  ,30*ZF,3 

PAINT ( 185 *ZF+A, 65 *ZF+B) ,1,3 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) 

LINE  (10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 

CIRCLE(130»ZF+A,120*ZF+B)  ,  50*ZF,1  ,  15*PI/  180  ,  165 *PI  /  180 

CIRCLE(24  0*ZF+A,120*ZF+B)  ,  5  0*ZF  ,  1  ,  15*PI  /  180  ,  165*PI/  180 

LINE(  178*ZF+A  ,  115*ZF+B  )-( 192*ZF+A,  115*ZF+B  ) 

RETURN 

58: 

REM  reconnaissance  battalion  #58 

U-4:U1$= "RECONNAISSANCE  BATTALION  ":U2$-"" 

CIRCLE  (185*ZF+A,65*ZF+B)  ,  30*ZF,3 

PAINT(185»ZF+A,65*ZF+B)  ,1,3 

LINE  (10»ZF+A,120*ZF+B)-(36  0*ZF+A,10*ZF+B) 

RETURN 

59: 

REM  field  arty  battalion  #59 

U-4:U1$-"FIELD  ARTILLERY  BATTALION" : U2$=" " 

CIRCLE  (90*ZF+A,65*ZF+B)  ,  48»ZF  ,  1  ,  90*PI/  180  ,  270 *PI  /  180 

CIRCLE(280*ZF+A,6  5»ZF+B)  ,  48»ZF,1  ,  270»PI/ 180 , 90»PI/ 180 

LINE(90»ZF+A,45»ZF+B)-(280»ZF+A,4  5»ZF+B) 

LINE(90»ZF+A,85»ZF+B)-(280*ZF+A,85»ZF+B) 

CIRCLE  (180»ZF+A,65»ZF+B)  ,  20*ZF,3 

PAINT  (180»ZF+A,65»ZF+B) ,3,3 

RETURN 

60: 

REM  missile  artillery  battalion  #60 
U-4:U1$-"MISSILE  ARTY  BATTALION" : U2$=" " 
LINE(180»ZF+A,35*ZF+B)-(14  0*ZF+A,60*ZF+B) 
LINE(180*ZF+A,35»ZF+B)-(22  0*ZF+A,60»ZF+B) 
LINE(180»ZF+A,4  5*ZF+B)-(14  0*ZF+A,70*ZF+B) 

LINE(180»ZF+A,4  5»ZF+B)-(22  0*ZF+A,70»ZF+B) 
CIRCLE  (180*ZF+A,80*ZF+B) ,  25*ZF,3 
PAINT ( 180 *ZF+A, 80 *ZF+B) ,1,3 

RETURN 
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61: 

REM  pershing  battalion  #61 

U=4:U1$="MISSILE  ARTY  BATTALION" :U2$="PERSHING" 

CIRCLE(360*ZF+A,100*ZF+B)  ,_ 

220»ZF,1,142.5*PI/180,180*PI/180 
CIRCLE(5»ZF+A,100*ZF+B)  ,  22  0*ZF  ,  1  ,  0  ,  37  .  5*PI/  180 
LINE(140*ZF+A,100»ZF+B)-(140*ZF+A,120*ZF+B) 
LINE(225*ZF+A,100*ZF+B)-(22  5*ZF+A,12  0*ZF+B) 
LINE(143*ZF+A,86*ZF+B)-(222*ZF+A,86»ZF+B) 
LINE(140*ZF+A,106*ZF+B)-(22  5*ZF+A,106*ZF+B) 
CIRCLE  (180*ZF+A,96*ZF+B)  ,9*ZF,3 
PAINT(180*ZF+A,96*ZF+B)  ,1,3 
RETURN 

62: 

REM  mountaineer  artillery  battalion  #62 

U=4:U1$="FIELD  ARTILLERY  BATTALION" 

U2$= "MOUNTAINEER  DIVISION" 

CIRCLE  (185*ZF+A,65*ZF+B) ,30*ZF,3 

PAINT(185*ZF+A,65*ZF+B)  ,1,3 

LINE  (10»ZF+A,10*ZF+B)-(360*ZF+A,120»ZF+B),  ,B 

LINE ( 152 *ZF+A  ,  120*ZF+B  )-  ( 182*ZF+A  ,  100*ZF+B  ) 

LINE (  212 *ZF+A  ,  120*ZF+B  )-( 182 *ZF+A  ,  100»ZF+B  ) 

PAINT( 165*ZF+A , 114*ZF+B ) 

RETURN 

63: 

REM   nbc   battalion   #63 

U=4:U1$="NBC  BATTALION" : U2$=" " 

CIRCLE  (80»ZF+A,50*ZF+B) ,30*ZF,3 

PAINT(80*ZF+A,5  0*ZF+B)  ,1,3 

CIRCLE  (290»ZF+A,50»ZF+B)  ,30*ZF,3 

PAINT(290»ZF+A,5  0*ZF+B),1,3 

LINE  (290*ZF+A,100*ZF+B)-(98*ZF+A,4  0*ZF+B) 

LINE  (80»ZF+A,100*ZF+B)-(270*ZF+A,4  0*ZF+B) 

RETURN 

64: 

REM  combat  aviation  bn  #64 

U-4:U1$-"C0MBAT  AVIATION  BATTALION" :U2$-" " 
CIRCLE(100*ZF+A,6  5*ZF+B ) ,_ 

35»ZF,1  ,56 "PI/ 180  ,  304  *P  1/180 
CIRCLE(27  0»ZF+A,65»ZF+B)  ,_ 

35 »ZF, 1, 236 »PI/ 180, 124 *P 1/180 
LINE(12  0*ZF+A,52»ZF+B)-(25  0»ZF+A,78*ZF+B) 
LINE(120*ZF+A,78*ZF+B)-(25  0»ZF+A,52*ZF+B) 
PAINT(100»ZF+A,65»ZF+B)  ,1 
PAINT(27  0*ZF+A,65»ZF+B)  ,1 
RETURN 
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65: 

REM  military  intelligence  battalion  #65 
U-4:U1$-"MILITARY  INTELLIGENCE  BATTALION" :U2$=" " 
LINE(22  0*ZF+A,30*ZF+B)-(26  0*ZF+A,30*ZF+B) 
LINE(22  0*ZF+A,100*ZF+B)-(260*ZF+A,100*ZF+B) 
LINE(80»ZF+A,30*ZF+B)-(80*ZF+A,100*ZF+B) 
LINE(160*ZF+A,30»ZF+B)-(160*ZF+A,10  0*ZF+B) 
LINE(240»ZF+A,30*ZF+B)-(24  0*ZF+A,100*ZF+B) 

LINE  (80»ZF+A,30*ZF+B)-(120»ZF+A,60*ZF+B) 
LINE(120*ZF+A,60*ZF+B)-(160»ZF+A,30*ZF+B) 
RETURN 

66: 

REM  medical  battalion  #66 

U-4:U1$- "MEDICAL  BATTALION" :U2$="" 

LINE  (10»ZF+A,65*ZF+B)-(36  0*ZF+A,65*ZF+B) 

LINE  (185*ZF+A,10»ZF+B)-(185*ZF+A,120»ZF+B) 

RETURN 

67: 

REM   medical  evacuation  battalion  #67 

U»4:U1$-"MEDICAL  EVACUATION  BATTALION" :U2$=" " 

CIRCLE(180*ZF+A,65*ZF+B)  ,70*ZF 

LINE  (130*ZF+A,46*ZF+B)-(232*ZF+A,84*ZF+B) 

LINE (131*ZF+A,85*ZF+B)-(  230 *ZF+A , 46*ZF+B ) 

LINE  ( 185*ZF+A,  10*ZF+B  )-(  185*ZF+A  ,  12  0»ZF+B  ) 

LINE  (10*ZF+A,65*ZF+B)-(360*ZF+A,65*ZF+B) 

LINE(10»ZF+A,10»ZF+B)-(40*ZF+A,120*ZF+B)  ,  ,BF 
RETURN 

68: 

REM   maintainance   battalion   #68 

U-4  :U1$="MAINTAINANCE  BATTALION"  :U2$=»"" 

CIRCLE  (50*ZF+A,65*ZF+B)  ,_ 

5  0»ZF,1  , 270 *PI/ 180, 9  0 *P 1/180 
CIRCLE  (320»ZF+A,65»ZF+B) ,_ 

50»ZF,1,90*PI/180,27  0*PI/180 
LINE  ( 100*ZF+A  ,  65  *ZF+B  )-  (  27  0»ZF+A  ,  65*ZF+B  ) 
RETURN 
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69: 

REM   maintainance   battalion   (electronic  mn . )  #69 
U-4 :U1$="MAINTAINANCE  BATTALION" 
U2$="( ELECTRONIC  MAINTAINANCE)" 
CIRCLE  (50*ZF+A,85»ZF+B)  , 

50*ZF,1,270*PI/180,90*PI/180 
CIRCLE  (320*ZF+A,85»ZF+B) ,_ 

50*ZF,1,90*PI/180,270*PI/180 
LINE  (100*ZF+A,85*ZF+B)-(270*ZF+A,85*ZF+B) 
LINE(14  0*ZF+A,30*ZF+B)-(14  0*ZF+A,50*ZF+B) 
LINE  (230*ZF+A,30*ZF+B)-(230*ZF+A,50*ZF+B) 
LINE(230*ZF+A,30*ZF+B)-(14  0*ZF+A,4  0*ZF+B) 
LINE(230*ZF+A,50»ZF+B)-(140*ZF+A,4  0*ZF+B) 

PAINT(160*ZF+A,40*ZF+B) 

LINE(57*ZF+A,4  0*ZF+B)-(310*ZF+A,4  0*ZF+B) 

RETURN 

70: 

REM   supply  battalion   #70 

U-4 :U1$= "SUPPLY  BATTALION" :U2$=" " 

LINE  (10*ZF+A,100*ZF+B)-(360»ZF+A,100*ZF+B) 

RETURN 

71: 

REM   supply  battalion  for  special  weapons  #71 

U-4 :U1$=»" SUPPLY  BATTALION  (SW)":U2$-"" 

LINE  (10*ZF+A,100*ZF+B)-(360*ZF+A,100*ZF+B) 

LINE(235*ZF+A,5  5*ZF+B)-(220*ZF+A,75*ZF+B) 

CIRCLE(150*ZF+A,60*ZF+B) ,_ 

13*ZF,1,45*PI/180,270*PI/180 
CIRCLE(150*ZF+A,70»ZF+B)  ,_ 

13»ZF,1,225*PI/180,90*PI/180 
LINE(185*ZF+A,55*ZF+B)-(200*ZF+A,75*ZF+B) 
LINE(200*ZF+A,75»ZF+B)-(210*ZF+A,60»ZF+B) 
LINE(210*ZF+A,60*ZF+B)-(22  0»ZF+A,75*ZF+B) 
RETURN 

72: 

REM   transportation   battalion  #72 

U=4:U1$="TRANSP0RTATI0N  BATTALION" :U2$="" 

CIRCLE (  180*ZF+A,65»ZF+B)  ,70*ZF 

LINE  (  130»ZF+A,4  6»ZF+B  )-  (  232*ZF+A  ,  84  *ZF+B  ) 

LINE(131*ZF+A,85»ZF+B)-(230*ZF+A,4  6»ZF+B) 

LINE  (180*ZF+A,37»ZF+B)-(180*ZF+A,93»ZF+B) 

LINE  (110*ZF+A,65*ZF+B)-(25  0»ZF+A,65*ZF+B) 

RETURN 
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73: 

REM  military  police   battalion  #73 
U=4:U1$="MILITARY  POLICE  BATTALION" :U2$=" " 
CIRCLE(255*ZF+A,42*ZF+B)  ,_ 

2  9*ZF,1  ,  270*PI/180,9  0»PI/180 
LINE(240*ZF+A,30*ZF+B)-(255*ZF+A,30*ZF+B) 
LINE(240*ZF+A, 54»ZF+B)-(25  5»ZF+A,54*ZF+B) 
LINE(80*ZF+A,30*ZF+B)-(80*ZF+A,10  0*ZF+B) 
LINE(160*ZF+A,30*ZF+B)-(160*ZF+A,100»ZF+B) 
LINE(240*ZF+A,30*ZF+B)-(24  0*ZF+A,100*ZF+B) 
LINE  (80*ZF+A,30*ZF+B)-(120*ZF+A,60*ZF+B) 
LINE(12  0*ZF+A,6  0*ZF+B)-(16  0*ZF+A,30*ZF+B) 
RETURN 

74: 

REM  ada  battalion  #74 

U-4:U1$="ADA  BATTALION" : U2$="C0RPS  ADA  COMMAND" 

CIRCLE  (186*ZF+A,175*ZF+B) , 

220»ZF,1,39»PI/180,142*PI/180 
RETURN 

75: 

REM  ada  battalion  #75 

U-4:U1$-"ADA  BATTALION" : U2$-"AIRB0RNE  DIVISION" 

CIRCLE  (186*ZF+A,175»ZF+B) ,_ 

220»ZF,1,39*PI/180,142*PI/180 
CIRCLE(130»ZF+A,12  0»ZF+B) ,_ 

50»ZF,1,15»PI/180,165*PI/180 
CIRCLE(24  0»ZF+A,120*ZF+B)  ,_ 

5  0*ZF, 1,15 »PI/ 180, 165 *PI/ 180 
LINE(178*ZF+A,115*ZF+B)-(192»ZF+A,115»ZF+B) 
RETURN 

76: 

REM   ew  battalion  #76 

U=4:U1$-"EW  BATTALION" :U2$="" 

LINE  (10»ZF+A,120*ZF+B)-(185*ZF+A,50»ZF+B) 

LINE(185»ZF+A,80»ZF+B)-(36  0»ZF+A,10*ZF+B) 

LINE(185*ZF+A,80«ZF+B)-(185*ZF+A,50*ZF+B) 

RETURN 

77: 

REM   signal  battalion  #77 

U=4 :U1$="SIGNAL  BATTALION" :U2$="" 

LINE  (10»ZF+A,10»ZF+B)-(  185  *ZF+A  ,  80»ZF+B  ) 

LINE(185*ZF+A,5  0*ZF+B)-(360»ZF+A,120*ZF+B) 

LINE  (  185  »ZF+A,80*ZF+B)-(  185*ZF+A , 50*ZF+B  ) 

RETURN 
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78: 

REM   signal  construction  battalion  #78 

U=4:U1$="SIGNAL  CONSTRUCTION  BATTALION" : U2$=" " 

LINE  (70*ZF+A,42*ZF+B)-(300*ZF+A,42*ZF+B) 

LINE(  70*ZF+A  ,  53*ZF+B  )-  (  30  0»ZF+A  ,  53*ZF+B  ) 

LINE(120*ZF+A,65*ZF+B)-(25  0*ZF+A,65*ZF+B) 
LINE(182*ZF+A,65*ZF+B)-(182*ZF+A,91*ZF+B) 

RETURN 

79: 

REM  signal  construction  battalion  #79 
U=4:U1$="SIGNAL  CONSTRUCTION  BATTALION" :U2$=" " 
CIRCLE(185*ZF+A,B-20*ZF)  ,_ 

160 *ZF, 1, 230 *PI / 180, 31 0*P 1/180 
LINE  (130»ZF+A,4  5»ZF+B)-(130*ZF+A,100*ZF+B) 
LINE  (225*ZF+A,4  5*ZF+B)-(225*ZF+A,85*ZF+B) 
LINE  (225*ZF+A,85*ZF+B)-(250*ZF+A,65*ZF+B) 
LINE(25  0*ZF+A,65*ZF+B)-(25  0*ZF+A,100*ZF+B) 
RETURN 

80: 

REM  feld  ersatz  battalion  #80 
U=4:U1$="FELD  ERSATZ  BATTALION" : U2$»" " 
LINE ( 5 0 * ZF+A , 1 0 0 *ZF+B  ) - ( 5 0 * ZF+A , 30 *ZF+B  ) 
LINE ( 5 0 *ZF+A , 3 0 * ZF+B  )  - ( 1 1 0 *ZF+A , 3 0 *ZF+B  ) 
LINE(50»ZF+A,65*ZF+B)-(100*ZF+A,65*ZF+B) 
LINE(120*ZF+A,100*ZF+B)-(12  0*ZF+A,30»ZF+B) 
LINE(  120*ZF+A,30*ZF+B  )-( 180»ZF+A , 30*ZF+B  ) 
LINE(120*ZF+A,65»ZF+B)-(170*ZF+A,6  5*ZF+B) 
LINE(  120*ZF+A,  100*ZF+B  )-( 180*ZF+A  ,  100*ZF+B  ) 
CIRCLE  (  225  *ZF+A,  77  *ZF+B  )  ,25»ZF,1,0,PI 
LINE(200»ZF+A,65*ZF+B)-(200»ZF+A,100*ZF+B) 
CIRCLE(290*ZF+A,75*ZF+B)  ,20*ZF,l,0,PI*3/2 
CIRCLE(290*ZF+A,91*ZF+B) ,_ 

20*ZF,1,180*PI/180,9Q*PI/180 
RETURN 

81: 

REM  engineer  battalion  #81 

U-4 :U1$="ENGINEER  BATTALION" :U2$="" 

LINE  (90*ZF+A,5  5»ZF+B)-(280»ZF+A,5  5»ZF+B ) 

LINE  (90*ZF+A,55*ZF+B  )- ( 90»ZF+A , 75 »ZF+B  ) 

LINE  (180»ZF+A,5  5»ZF+B  )  -  (  180*  ZF+A  ,  7  5  *ZF+B  ) 

LINE  (280*ZF+A,5  5»ZF+B)-(280»ZF+A,75»ZF+B) 

RETURN 
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82: 

REM  armored  engineer  battalion  #82 
U=4:U1$= "ARMORED  ENGINEER  BATTALION" : U2$=" " 
CIRCLE  (90*ZF+A,65»ZF+B) ,_ 

48»ZF,1  ,  90 *P 1/180  ,  27  0 »P 1/180 
CIRCLE  (280*ZF+A,65»ZF+B) ,_ 

48*ZF,1,270*PI/180,9  0*PI/180 
LINE(90*ZF+A,45*ZF+B)-(280*ZF+A,45*ZF+B) 
LINE(90*ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 
LINE  (90*ZF+A,5  5*ZF+B)-(280*ZF+A,55*ZF+B) 
LINE  (90»ZF+A,55»ZF+B)-(90*ZF+A,75*ZF+B) 
LINE  (180*ZF+A,5  5*ZF+B)-(180*ZF+A,75*ZF+B) 

LINE  (280*ZF+A,5  5»ZF+B)-(280*ZF+A,75*ZF+B) 
RETURN 

83: 

REM  engineer  battalion  #83 

U-4:U1$- "ENGINEERING  FERRY  BATTALION" : U2$-" " 
CIRCLE(57*ZF+Af  50*ZF+B)  ,  32»ZF  ,  1  ,  0  ,  PI 
CIRCLE(121*ZF+A,5  0*ZF+B)  ,32*ZF,1  ,PI  ,0 
CIRCLE(185*ZF+A,5  0*ZF+B)  ,  32*ZF,1  ,0,PI 
CIRCLE(24  9»ZF+A,5  0»ZF+B)  ,  32*ZF , 1 , PI , 0 
CIRCLE(313*ZF+A,5  0»ZF+B)  ,  32*ZF  ,  1  ,  0  ,  PI 
LINE  (80*ZF+A,80*ZF+B)-(290*ZF+A,80*ZF+B) 
LINE  (80»ZF+A,80»ZF+B)-(80*ZF+Af 99»ZF+B) 
LINE  (180*ZF+A,80*ZF+B)-(180»ZF+A,99*ZF+B) 
LINE  (29  0*ZF+A,80*ZF+B)-(29  0*ZF+A,9  9*ZF+B) 
RETURN 

84: 

REM  engineer  battalion  (bridge  layers)  #84 

U-4:U1$="ENGINEER  BATTALION" : U2$="BRIDGE  LAYERS" 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

RETURN 


9  0*ZF+A,80»ZF+B)-(280*ZF+A,80*ZF+B) 
90*ZF+A,80»ZF+B)-(90»ZF+A,99*ZF+B) 
185»ZF+A,80»ZF+B)-(185*ZF+A,99»ZF+B) 
280*ZF+A,80*ZF+B  )-(  280*ZF+A  ,  99*ZF+B  ) 
110*ZF+A,55*ZF+B)-(260*ZF+A,55*ZF+B) 
110»ZF+A,4  0*ZF+B)-(26  0*ZF+A,40*ZF+B) 
90*ZF+A,6  5*ZF+B  )-(  110*ZF+A  ,  5  5*ZF+B  ) 
26  0*ZF+A,4  0*ZF+B)-(280*ZF+A,30»ZF+B) 
90*ZF+A,30»ZF+B)-(110*ZF+A,4  0*ZF+B) 
26  0*ZF+A,5  5*ZF+B  )  -  (  280*ZF+A  ,  65  "ZF+B  ) 
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85: 

REM  support  battalion  #85 

U=4:U1$="SUPP0RT  BATTALION" : U2$="AIRB0RNE  DIVISION" 

CIRCLE(130*ZF+A,12  0*ZF+B) ,_ 

5  0*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,120*ZF+B) , 

50»ZF,1,15*PI/180,165*PI/180 
LINE(178»ZF+A,115*ZF+B)-(192»ZF+A,115»ZF+B) 
CIRCLE(150*ZF+A,60*ZF+B)  ,_ 

13*ZF,1  ,  45*PI/180,270»PI/180 
CIRCLE(15  0*ZF+A,70»ZF+B)  , 

13*ZF,1,225*PI/180,9  0*PI/180 
CIRCLE(180*ZF+A,70*ZF+B)  ,_ 

13*ZF,1,225*PI/180,135*PI/180 
LINE(172*ZF+A,66*ZF+B)-(172*ZF+A,85*ZF+B) 
CIRCLE(213*ZF+A,70*ZF+B) , 

13*ZF,1,180*PI/180,34  0*PI/180 
LINE(200*ZF+A,55*ZF+B)-(200»ZF+A,70*ZF+B) 
LINE(192*ZF+A,63*ZF+B)-(210*ZF+A,63»ZF+B) 
RETURN 

86: 

REM  support  battalion  #86 
U-4:U1$- "SUPPORT  BATTALION" :U2$-" " 
CIRCLE(  15  0*ZF+A  ,  60*ZF+B  )  , 

13*ZF,1,4  5*PI/180,27  0*PI/180 
CIRCLE(150»ZF+A,70*ZF+B) ,_ 

13*ZF,1,225*PI/180,9  0»PI/180 
CIRCLE(180»ZF+A,70*ZF+B)  , 

13*ZF, 1, 225 *PI/ 180, 135 *P 1/180 
LINE(172*ZF+A,66»ZF+B)-(172»ZF+A,85*ZF+B) 
CIRCLE(213*ZF+A,70*ZF+B)  ,_ 

13*ZF,  1, 180 *PI  /  180,  34 0*P  1/180 
LINE(200*ZF+A,55*ZF+B)-(200*ZF+A,70*ZF+B) 
LINE(192»ZF+A,63*ZF+B)-(210*ZF+A,63*ZF+B) 
RETURN 

87: 

REM   supply  and  transportation   battalion  #87 

U-4:U1$="SUPPLY  AND  TRANSPORTATION  BATTALION" : U2$=" " 

CIRCLE(180*ZF+A,65»ZF+B)  , 70*ZF 

LINE  (130*ZF+A,46»ZF+B)-(232*ZF+A,84*ZF+B) 

LINE(131»ZF+A,85»ZF+B)-(230»ZF+A,46*ZF+B) 

LINE  (180»ZF+A,37*ZF+B)-(180*ZF+A,93»ZF+B) 

LINE  (110*ZF+A,65*ZF+B)-(25  0»ZF+A,65»ZF+B) 

LINE  (10»ZF+A,100*ZF+B)-(360*ZF+A,100*ZF+B) 

RETURN 
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88: 

REM  field  arty  battalion  (mech  division)  #88 
U1$»"FIELD  ARTILLERY  BATTALION" : U2$="MECH.  DIVISION" 
U-4: CIRCLE  ( 185*ZF+A , 65*ZF+B ) , 30*ZF,3 
PAINT(  185*ZF+A,65*ZF+B  ) 
CIRCLE(90»ZF+A,65*ZF+B) ,_ 

48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B)  ,_ 

48*ZF,1,270»PI/180,90»PI/180 
LINE(90*ZF+A,4  5»ZF+B)-(280*ZF+A,45*ZF+B) 
LINE(90»ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 
LINE ( 1 0 * ZF+A  ,  1 0 "ZF+B  )  -  (  36 0  «  ZF+A  ,  1 2 0  * ZF+B  ) 
LINE(  10*ZF+A,  120*ZF+B  )-(  36  0»ZF+A  ,  10*ZF+B  ) 
RETURN 

89: 

REM  field  arty  battalion  (-AASLT  division)  #89 

U1$-"FIELD  ARTILLERY  BATTALION" : U2$="AASLT  DIVISION" 

U-4:  CIRCLE  ( 185»ZF+A  ,  65»ZF+B  )  ,  30*ZF,3 

PAINT ( 185 »ZF+A, 6  5 *ZF+B ) 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) 

LINE(10»ZF+A,120*ZF+B)-(360»ZF+A,10*ZF+B) 

LINE(  14  5*ZF+A,2  0*ZF+B)-(  185 *ZF+A , 40»ZF+B  ) 

LINE(225*ZF+A,2  0»ZF+B)-(185*ZF+A,40*ZF+B) 

LINE(  185*ZF+A,4  0»ZF+B  )-( 185*ZF+A,  100*ZF+B  ) 

LINE(14  5»ZF+A,100*ZF+B)-(225»ZF+A,100*ZF+B) 

RETURN 

101: 

REM  military  band  #101 

U-5:U1$«"MILITARY  BAND" :U2$-"" 

CIRCLE(25»ZF+A,60*ZF+B) ,80*ZF, 1 , 0 ,PI/2 

CIRCLE(185*ZF+A,6  0*ZF+B)  ,80*ZF,1 ,PI , 0 

CIRCLE(34  5»ZF+A,60*ZF+B)  ,80»ZF,1,PI/2,PI 

LINE(185*ZF+A,30»ZF+B)-(185*ZF+A,H0*ZF+B) 

LINE(  14  0*ZF+A,30»ZF+B  )-(  14  0»ZF+A , 70*ZF+B  ) 

LINE(230»ZF+A,30*ZF+B)-(230»ZF+A,70»ZF+B) 

LINE(100*ZF+A,50*ZF+B)-(270»ZF+A,50*ZF+B) 

RETURN 
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102: 

REM  military  police  co  #102 

U=5:U1$= "MILITARY  POLICE  COMPANY" :U2$=" " 

CIRCLE(255»ZF+A,42*ZF+B)  ,_ 

29*ZF,1,270*PI/180,90*PI/180 
LINE(240*ZF+A,30*ZF+B)-(25  5*ZF+A,30»ZF+B) 
LINE(240*ZF+A,54*ZF+B)-(25  5*ZF+A,54*ZF+B) 
LINE(80*ZF+A,30*ZF+B  )-(80*ZF+A,  100*ZF+B  ) 
LINE(160*ZF+A,30»ZF+B)-(160*ZF+A,100*ZF+B) 
LINE(24  0*ZF+A,30*ZF+B)-(240*ZF+A,10  0*ZF+B) 
LINE  (80*ZF+A,30*ZF+B)-(12  0*ZF+A,6  0*ZF+B) 
LINE(120*ZF+A,60*ZF+B)-(160*ZF+A,30*ZF+B) 
RETURN 

103: 

REM  chemical  co  #103 

U=5:U1$=" CHEMICAL  COMPANY" : U2$=" " 

CIRCLE  (80»ZF+A,50*ZF+B) ,30»ZF,3 

PAINT(80*ZF+A,50*ZF+B)  ,1,3 

CIRCLE  (290*ZF+A,5  0*ZF+B)  , 30*ZF,3 

PAINT(290*ZF+A,5  0*ZF+B)  ,1,3 

LINE  (290*ZF+A,100*ZF+B)-(98*ZF+A,4  0*ZF+B) 

LINE  (80*ZF+A,10  0*ZF+B)-(270*ZF+A,40*ZF+B) 

RETURN 

104: 

REM  cavalry  troop  #104 

U=5 : Ul$= " CAVALRY  TROOP " : U2$= " " 

CIRCLE(90*ZF+A,65*ZF+B)  ,_ 

48*ZF,  1,  90 »PI/  180,  270 *P  1/180 
CIRCLE(28Q*ZF+A,65»ZF+B)  ,_ 

48*ZF,1,270*PI/180,90*PI/180 
LINE  (90*ZF+A,4  5»ZF+B)-(280*ZF+A,4  5»ZF+B) 
LINE(90*ZF+A,85*ZF+B)-(280»ZF+A,85*ZF+B) 
LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10»ZF+B) 
RETURN 

105: 

REM  military  intelligence  company  #105 

U-5:U1$="MILITARY  INTELLIGENCE  COMPANY" :U2$=" " 

LINE(22  0*ZF+A,30*ZF+B)-(26  0*ZF+A,30*ZF+B) 

LINE(220*ZF+A,100*ZF+B)-(260»ZF+A,100*ZF+B) 

LINE(80*ZF+A,30*ZF+B)-(80*ZF+A,10  0*ZF+B) 

LINE(160*ZF+A,30»ZF+B)-(160*ZF+A,100»ZF+B) 

LINE(24  0»ZF+A,30*ZF+B)-(240*ZF+A,100»ZF+B) 

LINE  (80»ZF+A,30*ZF+B)-(120*ZF+A,60*ZF+B) 

LINE(120»ZF+A,6  0»ZF+B)-(160*ZF+A,30»ZF+B) 

RETURN 
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106: 

REM  hhq  corps  command  #106 

U-5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$="C0RPS  COMMAND" 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,30*ZF+B) ,  1,BF 
LINE(140*ZF+A,36*ZF+B)-(160*ZF+A,43*ZF+B) 
LINE(160*ZF+A,36*ZF+B)-(140*ZF+A,43*ZF+B) 
LINE(  175*ZF+A,36*ZF+B  )-( 195*ZF+A , 43*ZF+B  ) 
LINE(195*ZF+A,36*ZF+B)-(17  5*ZF+A,4  3*ZF+B) 
LINE(210*ZF+A,36*ZF+B)-(230*ZF+A,4  3*ZF+B) 
LINE(210*ZF+A,43*ZF+B)-(230*ZF+A-,36*ZF+B) 
RETURN 

107: 

REM  hhq  corps  malntalnance  command  #107 
U=5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$="CORPS  MAINTAINANCE  COMMAND" 
CIRCLE(5  0*ZF+A,65»ZF+B)  ,_ 

5  0*ZF,1,270»PI/180,9  0*PI/180 
CIRCLE(320*ZF+A,65*ZF+B)  ,_ 

5  0*ZF,1  ,  90»PI/180,270*PI/180 
LINE  (100»ZF+A,65*ZF+B)-(270*ZF+A,6  5*ZF+B) 
LINE(10*ZF+A,10»ZF+B)-(36  0*ZF+A,2  5*ZF+B)  ,  1  ,BF 
LINE(175»ZF+A,28»ZF+B)-(195»ZF+A,37*ZF+B) 
LINE(195»ZF+A,28»ZF+B)-(175*ZF+A,37*ZF+B) 
RETURN 

108: 

REM  corps  signal  command  #108 

U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$-"C0RPS  SIGNAL  COMMAND" 

LINE  (10*ZF+A,10»ZF+B)-(185*ZF+A,80*ZF+B) 

LINE(  185»ZF+A,  5  0»ZF+B  )-(  36  0*ZF+A,  120*ZF+B  ) 

LINE(  185*ZF+A,80»ZF+B  )-(  185*ZF+A,  5  0*ZF+B  ) 

LINE(10»ZF+A,10»ZF+B)-(36  0»ZF+A,2  5*ZF+B)  ,1  ,BF 

LINE(17  5»ZF+A,28»ZF+B)-(195*ZF+A,37*ZF+B) 

LINE(195*ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN 

109: 

REM  hhq  arty  command  #109 

U=5 :U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$="ARTILLERY  COMMAND" 

CIRCLE  (185*ZF+A,65*ZF+B) ,30*ZF,3 

PAINT(185»ZF+A,65»ZF+B)  ,1,3 

LINE(  10*ZF+A,10*ZF+B)-(36  0»ZF+A,2  5*ZF+B)  ,  1  ,BF 

LINE(175*ZF+A,28»ZF+B)-(195*ZF+A,37*ZF+B) 

LINE(195*ZF+A,28*ZF+B)-(  17  5  *ZF+A  ,  37*ZF+B  ) 

RETURN 
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110: 

REM  hhq  corps  ada  command  #110 
U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$-" CORPS  ADA  COMMAND" 
CIRCLE(186*ZF+A,175*ZF+B) ,_ 

220*ZF,1,39*PI/180,142*PI/180 
LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B) , 1 ,BF 
LINE(175»ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 
LINE(195*ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 
RETURN 

111: 

REM  hhq  corps  engineer  command  #111 

U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$=" CORPS  ENGINEER  COMMAND" 

LINE  (  90*ZF+A  ,  5  5*ZF+B  )-(  280*ZF+A  ,  5  5*ZF+B  ) 

LINE  (90*ZF+A,55*ZF+B)-(90»ZF+A,75*ZF+B) 

LINE  (180*ZF+A,55»ZF+B)-(i80*ZF+A,75*ZF+B) 

LINE  (280*ZF+A,5  5*ZF+B)-(280*ZF+A,75*ZF+B) 

LINE ( 1 0 *ZF+A , 1 0 *ZF+B ) - ( 36 0 * ZF+A , 2 5 *ZF+B ) , 1 , BF 

LINE(175*ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 

LINE(195»ZF+A,28*ZF+B)-(175*ZF+A,37*ZF+B) 

RETURN 

112: 

REM  hhq  corps  medical  command  #112 
U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$-"C0RPS  MEDICAL  COMMAND" 
LINE(10*ZF+A,65*ZF+B)-(360*ZF+A,6  5*ZF+B) 
LINE(185»ZF+A,5  0»ZF+B)-(185*ZF+A,120»ZF+B) 
LINE(10*ZF+A,10*ZF+B)-(36  0*ZF+A,25*ZF+B)  ,1,BF 
LINE(  175  *  ZF+A,  28*ZF+B  )-( 195  *ZF+A , 37*ZF+B ) 
LINE(  195*ZF+A,28*ZF+B  )-(  175*ZF+A , 37*ZF+B  ) 
RETURN 

113: 

REM  hhq  corps  supply  command  #113 

U=5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$«" CORPS  SUPPLY  COMMAND" 

LINE  (10*ZF+A,10  0*ZF+B)-(36  0*ZF+A,10  0»ZF+B) 

LINE(10»ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B) , 1 ,BF 

LINE(175*ZF+A,28*ZF+B)-( 195 "ZF+A, 37*ZF+B) 

LINE(195»ZF+A,28*ZF+B)-(17  5*ZF+A,37*ZF+B) 

RETURN 
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114: 

REM  hhq  aviation  brigade  #114 
U=5:U1$~"HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$="AVIATI0N  BRIGADE" 
CIRCLE(100»ZF+A,65*ZF+B) ,_ 

35»ZF,1,56*PI/180  ,  304 »P  1/180 
CIRCLE(270*ZF+A,65*ZF+B)  ,_ 

35*ZF,1,236*PI/180,124*PI/180 
LINE(120»ZF+A,52*ZF+B)-(250*ZF+A,78*ZF+B) 
LINE(120*ZF+A,78*ZF+B)-(25  0*ZF+A,52*ZF+B) 
PAINT(100*ZF+A,65*ZF+B)  ,1 
PAINT(270*ZF+A,65*ZF+B)  ,1 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,25*ZF+B)  ,1  ,BF 
LINE(1'75*ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 
LINE(195»ZF+A,28»ZF+B)-(175*ZF+A,37*ZF+B) 
RETURN 

115: 

REM  hhq  division  command  #115 

U=5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$="DIVISI0N  COMMAND" 

LINE(10»ZF+A,10*ZF+B)-(360*ZF+A,25»ZF+B),1,BF 

LINE(15  0»ZF+A,36*ZF+B)-(170»ZF+A,42»ZF+B) 

LINE(  170*ZF+A,36»ZF+B  )-(  15  0»ZF+A , 42*ZF+B  ) 

LINE(20  0»ZF+A,36»ZF+B)-(22  0*ZF+A,42*ZF+B) 

LINE(220*ZF+A,36»ZF+B)-(200»ZF+A,42*ZF+B) 

RETURN 

116: 

REM  hhq  mountaineer  "brigade  #116 
U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$- "MOUNTAINEER  BRIGADE" 

LINE  (10*ZF+A,10*ZF+B)-(360»ZF+A,120*ZF+B) 
LINE  (10»ZF+A,12  0*ZF+B)-(36  0*ZF+A,10»ZF+B) 
LINE  (10»ZF+A,10*ZF+B)-(360*ZF+A,120»ZF+B)  ,  ,B 
LINE(10»ZF+A,10*ZF+B)-(360*ZF+A,2  5»ZF+B)  ,1,BF 
LINE(  152»ZF+A  ,  12  0»ZF+B  )-(  182*ZF+A,  100*ZF+B  ) 
LINE(  212*ZF+A,  120*ZF+B  )-( 182*ZF+A,  100*ZF+B  ) 
PAINT (  165  *ZF+A,  114  »ZF+B  ) 

LINE(175*ZF+A,28»ZF+B)-(19  5*ZF+A,37*ZF+B) 
LINE(195*ZF+A,28*ZF+B)-( 17  5 *ZF+A , 37*ZF+B ) 
RETURN 
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117: 

REM  hhq  airborne  brigade  #117 
U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$-"AIRB0RNE  BRIGADE" 
CIRCLE(130*ZF+A,120*ZF+B) ,_ 

50*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,120*ZF+B) ,_ 

5  0*ZF,1,15*PI/180,165»PI/180 
LINE ( 1 78 » ZF+A , 1 1 5 * ZF+B ) - ( 1 9 2 * ZF+A , 1 1 5  * ZF+B ) 
LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,2  5*ZF+B) ,  1  ,BF 
LINE(175»ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 
LINE(195*ZF+A,28*ZF+B)-( 17  5*ZF+A , 37*ZF+B ) 
GO SUB  u4 
RETURN 

118: 

REM  hhq  mech  brigade  #118 

U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 
U2$-"MECH  BRIGADE" 
CIRCLE(90*ZF+A,70*ZF+B) , 

48*ZF,1,90*PI/180,270*PI/180 
CIRCLE(280*ZF+A,70»ZF+B)  ,_ 

48*ZF,1,270*PI/180,90»PI/180 
LINE  (90*ZF+A,50*ZF+B)-(280»ZF+A,50»ZF+B) 
LINE  (90*ZF+A,90»ZF+B)-(280»ZF+A,9  0*ZF+B) 
GOSUB  u4 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,2  5»ZF+B) ,  l.BF 
LINE(175*ZF+A,28*ZF+B)-(195*ZF+A,37*ZF+B) 
LINE(195*ZF+A,28*ZF+B)-(17  5*ZF+A,37*ZF+B) 
RETURN 

119: 

REM  hhq   armd  brigade  #119 

U-5:U1$-"HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$- "ARMORED  BRIGADE" 

CIRCLE( 90»ZF+A , 65*ZF+B ) ,_ 

48»ZF,1,90*PI/180,270»PI/180 
CIRCLE(280*ZF+A,65»ZF+B)  ,_ 

48»ZF,1,270»PI/180,9  0*PI/180 
LINE  (90*ZF+A,4  5»ZF+B)-(280*ZF+A,4  5*ZF+B) 
LINE  (90*ZF+A,85»ZF+B)-(280*ZF+A,85*ZF+B) 
LINE(10*ZF+A,10*ZF+B)-(36  0»ZF+A,2  5»ZF+B)  ,  1,BF 
LINE(17  5»ZF+A,28»ZF+B  )  -(  195  *ZF+A  ,  37*ZF+B  ) 
LINE(  195»ZF+A,28»ZF+B  )-(  17  5 *ZF+A , 37*ZF+B  ) 
RETURN 
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120: 

REM  hhq  air  cavalry  combat  brigade  #120 
U=5:U1$="HHQ  AIR  CAVALRY  COMBAT  BRIGADE" :U2$=" " 
CIRCLE(100*ZF+A,65»ZF+B) ,_ 

35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270»ZF+A,65*ZF+B) ,_ 

35»ZF,1  ,  236  *PI  /  180,1 24  *P  1/180 
LINE(120*ZF+A,5  2»ZF+B)-(25  0*ZF+A,78*ZF+B) 
LINE(120*ZF+A,78»ZF+B)-(250*ZF+A,52»ZF+B) 
LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 
PAINT(100*ZF+A,65*ZF+B)  ,1 
PAINT(270*ZF+A,65*ZF+B)  ,1 

LINE(10»ZF+A,10*ZF+B)-(360*ZF+A,30*ZF+B)  ,  1  ,BF 
LINE(170*ZF+A,36»ZF+B)-(190*ZF+A,42»ZF+B) 
LINE(190*ZF+A,36*ZF+B)-(170*ZF+A,42»ZF+B) 
RETURN 

121: 

REM   ew  company  #121 

U-5:U1$-"EW  COMPANY" :U2$="" 

LINE  (10»ZF+A,12  0»ZF+B)-(185»ZF+A,5  0*ZF+B) 

LINE(185*ZF+A,80»ZF+B)-(360*ZF+A,10*ZF+B) 

LINE(185*ZF+A,80»ZF+B)-(185*ZF+A,5  0*ZF+B) 

RETURN 

122: 

REM   signal  company  #122 

U-5:U1$-"SIGNAL  COMPANY" :U2$="" 

LINE  (10»ZF+A,10»ZF+B)-(185*ZF+A,80*ZF+B) 

LINE(185»ZF+A,5  0*ZF+B)-(36  0*ZF+A,120»ZF+B) 

LINE(185*ZF+A,80»ZF+B)-(185»ZF+A,5  0*ZF+B) 

RETURN 

123: 

REM  fernspaeh  co  #123 

U-5:U1$="FERNSPAEH  KOMPANIE" :U2$-"" 

LINE(  10*ZF+A,  12  0*ZF+B  )-(  360*ZF+A  ,  10*ZF+B  ) 

LINE(5  0»ZF+A,65*ZF+B)-(320*ZF+A,65*ZF+B) 

LINE(280*ZF+A,4  5»ZF+B)-(32  0»ZF+A,6  5*ZF+B) 

LINE(280*ZF+A,85*ZF+B)-(32  0*ZF+A,6  5»ZF+B) 

RETURN 
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124: 

REM  armored  engineer  company  #124 
Ul$- "ARMORED  ENGINEER  COMPANY" :U2$-" " 
CIRCLE(90»ZF+A,65*ZF+B)  , 

48*ZF,1,90»PI/180,270*PI/180 
CIRCLE(280*ZF+A,65*ZF+B)  ,_ 

48*ZF,1,270*PI/180,9  0*PI/180 
LINE(90*ZF+A,4  5*ZF+B)-(280*ZF+A,4  5*ZF+B) 
LINE(  90*ZF+A,85»ZF+B  )-( 280*ZF+A , 85*ZF+B  ) 
LINE  (90*ZF+A,5  5*ZF+B)-(280»ZF+A,5  5*ZF+B) 
LINE  (90*ZF+A,5  5*ZF+B)-(90*ZF+A,75*ZF+B) 
LINE  (180*ZF+A,5  5*ZF+B)-(180*ZF+A,75*ZF+B) 
LINE  (280*ZF+A,5  5*ZF+B)-(280*ZF+A,75*ZF+B) 
RETURN 

125: 

REM  adjudant  general  #125. 
U-5:U1$="ADJUDANT  GENERAL" : U2$=" " 
LINE(70*ZF+A,100*ZF+B)-(120*ZF+A,30*ZF+B) 
LINE(120*ZF+A,30*ZF+B)-(17  0*ZF+A,100*ZF+B) 
LINE(95*ZF+A,65*ZF+B)-(145*ZF+A,65*ZF+B) 
CIRCLE(24  0*ZF+A,85*ZF+B),4  0»ZF,1,PI,2*PI 
CIRCLE (  24  0*ZF+A  ,  5  0*ZF+B  )  ,  4  0»ZF  ,  1  ,  10/180*PI  ,PI 
LINE(200*ZF+A,5  0*ZF+B)-(200*ZF+A,85*ZF+B) 
LINE(280*ZF+A,65*ZF+B)-(280*ZF+A,85*ZF+B) 
LINE(24  0*ZF+A,65*ZF+B)-(280*ZF+A,65*ZF+B) 
RETURN 

126: 

REM  engineer  co  #126 

U-5  :  Ul$=  "ENGINEER  COMPANY  "  :  U2$=» "  " 

LINE  (90*ZF+A,55»ZF+B)-(280*ZF+A,5  5*ZF+B) 

LINE  (90*ZF+A,5  5»ZF+B)-(90*ZF+A,75*ZF+B) 

LINE  (180*ZF+A,5  5*ZF+B)-(180*ZF+A,75*ZF+B) 

LINE  (280*ZF+A,5  5*ZF+B)-(280*ZF+A,75*ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120»ZF+B),  ,B 

LINE(  152*ZF+A  ,  120*ZF+B  )-( 182»ZF+A  ,  100*ZF+B  ) 

LINE(212»ZF+A,120»ZF+B)-(182*ZF+A,100*ZF+B) 

PAINT  ( 16  5  *ZF+A,1 14  »ZF+B) 

RETURN 
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127: 

REM  chemical  co  #127 

U-5:U1$=" CHEMICAL  COMPANY" :U2$=" " 

CIRCLE  (80*ZF+A,50*ZF+B) ,30*ZF,3 

PAINT(80*ZF+A,5  0*ZF+B) ,1,3 

CIRCLE  (290»ZF+A,50»ZF+B)  ,  30*ZF,3 

PAINT(290*ZF+A,5  0*ZF+B)  ,1,3 

LINE  (290*ZF+A,100*ZF+B)-(98*ZF+A,4  0»ZF+B) 

LINE  (80*ZF+A,100*ZF+B)-(270*ZF+A,4  0*ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B) , ,B 

LINE(152*ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

LINE(212*ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

PAINT( 165*ZF+A , 114*ZF+B ) 

RETURN 

128: 

REM  support  co  #128 

U-5 : Ul$- "SUPPORT  COMPANY " : U2$- " " 

LINE(10*ZF+A,100*ZF+B)-(360»ZF+A,120*ZF+B) ,1 ,BF 

LINE(10»ZF+A,10*ZF+B)-(360»ZF+A,120»ZF+B)  ,  ,B 

LINE(152*ZF+A,100*ZF+B)-(182*ZF+A,80»ZF+B) 

LINE(212*ZF+A,100*ZF+B)-(182*ZF+A,80»ZF+B) 

PAINT(165*ZF+A,94*ZF+B) 

RETURN 

129: 

REM  tragtier  co  #129 

U-5:U1$-"TRAGTIER  KOMPANIE" :U2$=" " 

LINE(70*ZF+A,5  5»ZF+B)-(30  0»ZF+A,5  5*ZF+B) 

LINE(70*ZF+A,85»ZF+B)-(100*ZF+A,55»ZF+B) 

LINE(  100»ZF+A,  5  5»ZF+B  )-(  130»ZF+A , 85*ZF+B  ) 

LINE(300*ZF+A,85*ZF+B  )- (  270*ZF+A  ,  55*ZF+B  ) 

LINE(27  0»ZF+A,5  5»ZF+B)-(240»ZF+A,85*ZF+B) 

LINE(10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B)  ,  ,B 

LINE(152*ZF+A,120*ZF+B)-(182*ZF+A,100»ZF+B) 

LINE(212»ZF+A,120*ZF+B)-(182»ZF+A,100*ZF+B) 

PAINT (  165»ZF+A  ,  114*ZF+B  ) 

RETURN 
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130: 

REM  antitank  co  #130 

U=5:U1$= "ANTITANK  COMPANY" : U2$=" " 

LINE(10*ZF+A,120*ZF+B)-(185*ZF+A,10*ZF+B) 

LINE(  185*ZF+A,  10*ZF+B  )-(  36  0*ZF+A,  120*ZF+B  ) 

LINE(14  5»ZF+A,60*ZF+B)-(185*ZF+A,4  0*ZF+B) 

LINE(185*ZF+A,4  0*ZF+B)-(225*ZF+A,60*ZF+B) 

LINE(  14  5*ZF+A,80*ZF+B  )-(  185 *ZF+A , 60*ZF+B  ) 

LINE(185*ZF+A,60*ZF+B)-(22  5*ZF+A,80*ZF+B) 

LINE  (10*ZF+A,10*ZF+B)-(360*ZF+A,120*ZF+B)  ,  ,B 

LINE(152*ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

LINE(212»ZF+A,120*ZF+B)-(182*ZF+A,100*ZF+B) 

PAINT(  165*ZF+A  ,  114*ZF+B  ) 

RETURN 

131: 

REM  airborne   mortar  co  #131 

U-5:U1$- "AIRBORNE  MORTAR  COMPANY" :U2$=" " 

CIRCLE ( 130*ZF+A,120*ZF+B  )  , 

5  0*ZF,1,15*PI/180,165*PI/180 
CIRCLE(240*ZF+A,120»ZF+B)  , 

50*ZF,1,15*PI/180,165*PI/180 
LINE(178»ZF+AfH5*ZF+B)-(192*ZF+A,115*ZF+B) 


CIRCLE(182*ZF+A,80*ZF+B 
LINE(  182*ZF+A,25»ZF+B  )- 
LINE(152*ZF+A,5  0»ZF+B)- 
LINE(152*ZF+A,60»ZF+B)- 
LINE(  152*ZF+A,35»ZF+B  )- 
LINE(182*ZF+A,25»ZF+B)- 
RETURN 


,25*ZF 

182*ZF+A,70*ZF+B) 

212»ZF+A,50*ZF+B) 

212*ZF+A,60*ZF+B) 

182*ZF+A,25*ZF+B) 

212*ZF+A,35*ZF+B) 


132: 

REM  airborne   engineer  co  #132 
U-5:U1$-"AIRB0RNE  ENGINEER  COMPANY" :U2$=" " 
CIRCLE(130*ZF+A,120*ZF+B)  ,_ 

5  0*ZF,1,15*PI/180,165»PI/180 

CIRCLE  (  24  0*ZF+A,  12  0*ZF+B),_ 

5  0*ZF,1,15*PI/180,165*PI/180 
LINE(178»ZF+A,115»ZF+B)-(192*ZF+A,115*ZF+B) 
LINE  (  90»ZF+A,  5  5*ZF+B  )-(  280*ZF+A  ,  55*ZF+B  ) 
LINE  (90»ZF+A,5  5*ZF+B)-(90*ZF+A,75*ZF+B) 
LINE  (  180»ZF+A,  5  5*ZF+B  )-(  180*ZF+A , 75 *ZF+B  ) 
LINE  (280*ZF+A,5  5»ZF+B)-(280*ZF+A,75*ZF+B) 
RETURN 
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133: 

REM  airborne  medical  co  #133 

U-5:U1$= "AIRBORNE  MEDICAL  COMPANY" :U2$=" " 

CIRCLE(130»ZF+A,120*ZF+B) ,_ 

5  0*ZF,1,15*PI/180,165*PI/180 
CIRCLE(24  0*ZF+A,120*ZF+B)  ,_ 

5  0»ZF,1,15*PI/180,165*PI/180 

LINE(  178*ZF+A,115*ZF+B  )-( 192*ZF+A , 115*ZF+B  ) 
LINE  (10*ZF+A,65*ZF+B)-(36  0*ZF+A,65*ZF+B) 
LINE(185*ZF+A,10*ZF+B)-(185*ZF+A,10  0*ZF+B) 

RETURN 

134: 

REM  airborne  support  co  #134 
U-5:U1$*"AIRB0RNE  SUPPLY  COMPANY" : U2$=" " 
CIRCLE(130»ZF+A,90*ZF+B)  ,_ 

5  0*ZF,1,15*PI/180,165»PI/180 
CIRCLE(24  0*ZF+A,90*ZF+B)  ,_ 

5  0*ZF,1,15»PI/180,16  5*PI/180 
LINE(178*ZF+A,85»ZF+B)-(192*ZF+A,85»ZF+B) 
LINE  (10*ZF+A,100*ZF+B)-(360*ZF+A,120*ZF+B)  ,1,BF 
RETURN 

135: 

REM  cavalry  troop  #135 
U-5:U1$-" CAVALRY  TROOP" :U2$="" 
CIRCLE(90*ZF+A,65*ZF+B)  ,_ 

48»ZF,1  ,  90»PI/180,270*PI/180 
CIRCLE(280»ZF+A,65»ZF+B)  ,_ 

48»ZF,1  ,27  0*PI/180  ,  90»PI/180 
LINE(  90»ZF+A,4  5*ZF+B  )-( 280*ZF+A , 45»ZF+B ) 
LINE(90*ZF+A,85*ZF+B)-(280*ZF+A,85*ZF+B) 
LINE(10*ZF+A,120*ZF+B)-(360*ZF+A,10*ZF+B) 
CIRCLE(130*ZF+A,120»ZF+B)  , 

5  0»ZF,1,15»PI/180,165*PI/180 
CIRCLE(24  0»ZF+A,120»ZF+B)  ,_ 

5  0*ZF,1,15*PI/180,165*PI/180 
LINE(178*ZF+A,H5»ZF+B)-(192*ZF+A,115*ZF+B) 

RETURN 
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136: 

REM  liaison  squad  #136 
U-5:U1$="AVIATI0N  LIAISON" :U2$=" " 
CIRCLE(100»ZF+A,100*ZF+B)  ,_ 

35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B)  ,_ 

35 *ZF,  1,  236 *PI/  180, 124  *P  1/180 
LINE(120»ZF+A,87»ZF+B)-(25  0*ZF+A,113*ZF+B) 
LINE(120*ZF+A,113*ZF+B)-(25  0*ZF+A,87*ZF+B) 
PAINT(  100*ZF+A  ,  100*ZF+B  )  ,  1 
PAINT(270*ZF+A,100*ZF+B) ,1 

LINE(140*ZF+A,75*ZF+B)-(230*ZF+A,75»ZF+B) 
LINE(185*ZF+A,48*ZF+B)-(14  0*ZF+A,75*ZF+B) 

LINE(185*ZF+A,48»ZF+B)-(230»ZF+A,75*ZF+B) 
LINE(140*ZF+A,75*ZF+B)-(230*ZF+A,75*ZF+B) 
LINE(185*ZF+A,48*ZF+B)-(140*ZF+A,75*ZF+B) 
LINE(185*ZF+A,48*ZF+B)-(230*ZF+A,75*ZF+B) 
CIRCLE(80*ZF+A,40*ZF+B)  ,30*ZF 
CIRCLE(290*ZF+A,40*ZF+B)  ,30»ZF 
LINE(110*ZF+A,40*ZF+B)-(260*ZF+A,40*ZF+B) 
RETURN 

137: 

REM  liaison  squad  #137 
U=5:U1$="AVIATI0N  LIAISON" :U2$=" " 
CIRCLE(100*ZF+A,100*ZF+B) ,_ 

35*ZF  ,  1 ,  56*PI  /  180  ,  304  *PI  /  180 
CIRCLE(  270*ZF+A,  100*ZF+B  )  ,_ 

35*ZF,1,236»PI/180,124*PI/180 
LINE(  120*ZF+A  ,87*ZF+B  )-(  25  0*ZF+A  ,  113*ZF+B  ) 
LINE(120*ZF+A,113*ZF+B)-(25  0*ZF+A,87*ZF+B) 
PAINT(100»ZF+A,100*ZF+B)  ,1 
PAINT(  270*ZF+A  ,  100»ZF+B  )  ,  1 

LINE(140»ZF+A,75»ZF+B)-(230»ZF+A,75*ZF+B) 
LINE(185*ZF+A,48*ZF+B)-(140*ZF+A,75*ZF+B) 
LINE(185»ZF+A,48»ZF+B)-(230*ZF+A,75*ZF+B) 

PAINT(185*ZF+A,60*ZF+B)  ,1 
CIRCLE(80*ZF+A,4  0*ZF+B)  , 30*ZF 
CIRCLE(290»ZF+A,4  0*ZF+B)  , 30*ZF 
LINE(110*ZF+A,4  0*ZF+B)-(260*ZF+A,4  0*ZF+B) 

RETURN 


240 


138: 

REM  f lugplatzkommandantur   #138 
U=5 :U1$="FIELD  AIRPORT" : U2$=" " 
CIRCLE(100*ZF+A,100*ZF+B) ,_ 

35*ZF,1,56*PI/180,304*PI/180 
CIRCLE(270*ZF+A,100*ZF+B)  ,_ 

35»ZF,1 , 236 *P 1/180 , 1 2  4 *P 1/180 
LINE(120*ZF+A,87*ZF+B)-(25  0*ZF+A,113*ZF+B) 
LINE(120*ZF+A,113*ZF+B)-(250*ZF+A,87*ZF+B) 
PAINT(100*ZF+A,100«ZF+B) ,1 
PAINT(270*ZF+A,100*ZF+B)  ,1 

LINE(  182*ZF+A,  15*ZF+B  )-(  122*ZF+A , 35*ZF+B  ) 
LINE ( 182  *ZF+A  ,  15  *ZF+B  )-  (  242*ZF+A  ,  35*ZF+B  ) 
LINE ( 1 5 0 * ZF+A , 4 0 * ZF+B ) - ( 1 5 0 * ZF+A , 80 * ZF+B  ) 
LINE(150*ZF+A,65*ZF+B)-(220*ZF+A,4  0*ZF+B) 
LINE(162*ZF+A,60*ZF+B)-(22  0*ZF+A,80*ZF+B) 
RETURN 

139: 

REM  brigade  maintenance  co  #139 
U«5:U1$-"MAINTAINANCE  COMPANY" :U2$-"" 
CIRCLE(5  0*ZF+A,65*ZF+B)  ,_ 

5  0*ZF,1,270*PI/180  ,  90 *P 1/180 
CIRCLE(320*ZF+A,65*ZF+B)  ,_ 

5  0*ZF,1,9  0*PI/180,27  0*PI/180 
LINE  (100*ZF+A,65*ZF+B)-(27  0»ZF+A,65*ZF+B) 
RETURN 

140: 

REM  brigade  supply  co  #140 

U-5:U1$-"SUPPLY  COMPANY" :U2$="" 

LINE  ( 1 0*ZF+A, 1 00 *ZF+B)-( 360* ZF+A, 10  0* ZF+B) 

RETURN 

141: 

REM  antitank  co  #141 

U-5:U1$- "ANTITANK  COMPANY" :U2$="" 

LINE(10*ZF+A,120*ZF+B)-(  185  *  ZF+A  ,  10  *  ZF+B  ) 

LINE(  185* ZF+A,  10*ZF+B  )-( 36  0* ZF+A,  120*ZF+B  ) 

LINE(14  5*ZF+A,6  0*ZF+B)-(185*ZF+A,4  0*ZF+B) 

LINE(185*ZF+A,4  0*ZF+B)-(225*ZF+A,6  0*ZF+B) 

LINE(145*ZF+A,80*ZF+B)-( 185 -ZF+A, 6  0*ZF+B) 

LINE(185*ZF+A,6  0*ZF+B  )- ( 22  5 *ZF+A , 80*ZF+B  ) 

RETURN 
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142: 

REM  engineer  company  #142 

U=5 : Ul$- "ENGINEER  COMPANY " : U2$=  " " 

LINE  (90*ZF+A,55*ZF+B)-(280*ZF+A,5  5*ZF+B) 

LINE  (90*ZF+A,55*ZF+B)-(90»ZF+A,75*ZF+B) 

LINE  ( 180*ZF+A,  5  5*ZF+B  )-( 180*ZF+A,  75*ZF+B  ) 

LINE  (280*ZF+A,5  5*ZF+B)-(280*ZF+A,75*ZF+B) 

RETURN 

143: 

REM  wehrgericht  #143 

U=0:Ul$="wenrgericht" :U2$=" " 

CIRCLE(24  0*ZF+A,85*ZF+B)  , 40*ZF,1,PI  ,2*PI 

CIRCLE(240*ZF+A,5  0*ZF+B)  ,  4  0*ZF  ,  1  ,  10/  180*PI  ,  PI 

LINE(200*ZF+A,5  0»ZF+B)-(200»ZF+A,85*ZF+B) 

LINE(280*ZF+A,65*ZF+B)-(280»ZF+A,85*ZF+B) 

LINE(24  0*ZF+A,65*ZF+B)-(280*ZF+A,65»ZF+B) 

LINE(50*ZF+A,33*ZF+B)-(80*ZF+A,103*ZF+B) 

LINE(80*ZF+A,103*ZF+B)-(110*ZF+A,65*ZF+B) 

LINE(  110*ZF+A  ,  65*ZF+B  )-( 14  0*ZF+A,  103*ZF+B  ) 

LINE(  140*ZF+A  ,  103*ZF+B  )-( 170*ZF+A  ,  33»ZF+B  ) 

RETURN 

144: 

REM  hhq  infantry  brigade  #144 

U-5:U1$="HEADQUATERS  AND  HEADQUARTERS  CO" 

U2$=" INFANTRY  BRIGADE" 

GOSUB  u4 

LINE(10*ZF+A,10*ZF+B)-(36  0*ZF+A,2  5*ZF+B)  ,  1,BF 

LINE(  170*ZF+A,36*ZF+B  )-(  190*ZF+A , 42*ZF+B  ) 

LINE(190*ZF+A,36*ZF+B)-(170*ZF+A,42*ZF+B) 

RETURN 
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3.    Source  Code  Program  INSYSDAT 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


program  INSYSDAT 


JUNE  1987 


input  data  for  arbitrary  item  within  arbitrary 
system  required  information:  stock  number,  item 
description,  number  per  superset,  unit  price, MTBF, 
replacement  level,  repair  level,  MTTR ,  item 
redundancy,  location  in  overall  system. 


*********** 

********** 

»*    A$(x) 
Ax$ 

E$ 

F 

FZ 

1$ 

ML 

MT 

MTBF 

NAM$ 

NC 

NN$ 

P 

REDUND 

RL 

NN$ 

TYPE 

X 


*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  M 

*  * 

*  * 


************************************ 

Variable  Directory 
************************************ 

auxiliary  string  variable 

field  variable  for  rand.  ace.  f 

auxiliary  string  variable 

failure  flag 

data  set  counter 

item  description 

repair  level 

repair  time 

mean  time  between  failures 

string  variable  for  item  file 

number  of  items 

national  stock  number 

item  price 

redundancy 

replacement  level 

national  stock  number 

item  type 

auxiliary  variable 


********************************************** 


*  *  *  * 

*  * 

*  *  *  * 

*  * 

lie* 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  *  *  * 
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**************************** 

*   Start  of  Main  Program   * 

*************************** 


REM 

REM 

REM 

REM 

REM 

DIM  A$(10) 

A$(0)  =  "No  Repair" :A$( 2  )  =  "Organ.  Maintainance" 

A$(3)="Direct  /  General  Support " :A$( 4 )="Depot" 

start : 

CLS:F=0 

LOCATE  1,1 

PRINT  "Item  Type  ( l=System , 2=Component , 3 . . . 8=Subcomp , " ; 

INPUT  "9=Part )" ;TYPE 

IF  (TYPE<1  OR  TYPE  >9)  THEN  start 

LOCATE  2,1: INPUT  "National  Stock  Number 
IF  F=3  OR  F=4  THEN  start 
1,1: PRINT  "National  Stock  Number 
INPUT  "Item  Description  :";I$ 
INPUT  "Unit  Price  in  US  Dollars 
THEN  contl 


GOSUB  dupl 
CLS: LOCATE 
LOCATE  3,1 
LOCATE  4,1 
IF  TYPE=1 


: " ; NN$ 

"  ;  NN$ 


$";P 


LOCATE  5,1: INPUT  "How  many  of  these 

LOCATE  6,1: INPUT  "MTBF  (  assumed  ) 

LOCATE  7,1 

PRINT  "Replacement  Level  "; 

INPUT  "(2=0rg  Mn,3-DS/GS,4=Depot)  : 

IF  TYPE < 9  THEN  LOCATE  8,1:_ 

PRINT  "Repair  Level  "; 

INPUT  "(0=no,2=0rg  Mn , 3-DS/GS , 4=Depot ) 

IF  TYPE-9  THEN 

LOCATE  8,1:ML=0 

PRINT  "Repair  Level  ( 0=no , 2=0rg" ; 

PRINT  "  Mn,3=DS/GS,4=Depot) 

END  IF 

IF  (ML<RL  AND  ML>0)  THEN  F=l 

GOSUB  errf lag: GOTO  start 
LOCATE  9,1 

INPUT  "MTTR  (Repair/Replace) 
REM  LOCATE  10,1: 
REM  INPUT  "Redundancy 
REDUND=1  :REM 


Items   : 
in  Days: 


;NC 

;MTBF 


";RL 


";ML 


ML 


in  Hours:  " ;MTTR 


:  " ; redund 
default 


contl : 

CLS 

PRINT  "Type  :  "; 

IF  TYPE-1  THEN  PRINT"System" : GOTO  cont2 

IF  TYPE-2  THEN  PRINT"Component " : GOTO  cont2 

IF  TYPE-9  THEN  PRINT"Part " : GOTO  cont2 

PRINT "Subcomponent" 
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cont2 : 

PRINT  "National  Stock  Number 

PRINT  "Item  Description 

PRINT  "Unit  Price  in  US  Dollars 

PRINT  USING  "  ######.##" ;P 

IF  TYPE-1  THEN  cont3 

PRINT  "Number  of  items 

PRINT  "MTBF  (  assumed  ) 

PRINT  "Replacement  Level 

PRINT  "Repair  Level 

PRINT  "MTTR  (replace) 

PRINT  USING  "####.#" ;MTTR ;: PRINT 

rem  PRINT  "Redundancy 


"  ;  NN$ 
";I$ 
$"; 

";NC 

";MTBF; "days" 

";A$(RL) 

" ; A$ ( ML ) 

» 
"  hours" 

:  " ; REDUND 

cont3 : 

LOCATE  24,1 

PRINT  "   *******     Entries  correct  ?  (y/n)"; 

INPUT   "        *#»(«»»)♦«;£$ 

IF  (E$-"N"  OR  E$-"n")  THEN  GOTO  start 

IF  (E$-"Y"  OR  E$-"y")  THEN  GOSUB  subwrite : GOTO 

GOTO  cont3 


cont4 


cont4  : 

CLS:LOCATE  15, 15: INPUT  "another  entry  ?";E$ 

IF  (E$-"y"  OR  E$-"Y")  THEN  start 

CLS:END 

REM 

REM 

REM 

REM 

REM 


MMtttt*K**Mtt*ttM**ttttHM*»M*H*Mtt 

M    End  of  Main  Program    * 

MMMttttHttM*MMM*Mtt*MHWMMtt*M*ttM 
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REM 

REM  subroutine  write  data  to  random  access  file 

REM 

subwrite: 

REM 

OPEN  "R",1,NAM$,60 

FIELD#1,1  AS  Al$,2  AS  A2$,16  AS  A3$,20  AS  A4$,_ 

8  AS  A5$,5  AS  A6$,l  AS  A7$ , 1  AS  A8$,_ 

5  AS  A9$,l  AS  AR$ 
LSET  A1$=RIGHT$(STR$(TYPE) ,1 ) 
LSET  A2$=RIGHT$(STR$(NC) ,2) 
LSET  A3$=NN$ 
LSET  A4$=I$ 

LSET  A5$=RIGHT$(STR$(P),8) 
LSET  A6$=RIGHT$(STR$(MTBF) ,8) 
LSET  A7$=RIGHT$(STR$(RL) ,1) 

LSET  A8$=RIGHT$(STR$(ML),1) 

LSET  A9$-RIGHT$(STR$(MTTR) ,5) 

LSET  AR$-RIGHT$(STR$(REDUND),1) 

PUT#1,FZ 

CLOSE  #1 

RETURN 

REM 

REM   ****ttMMtt»HMKMH*ttM**Mtt**M**tt**HttttM*Mtt»ttMK*KM*ttttMMtttt 

REM 

errf lag: 

REM  soubroutine  errorhandling 

REM 

CLS:LOCATE  15,15 

IF  F-l  THEN_ 

PRINT  "input  error:  repair  level  invalid" : GOTO  cont5 
IF  F=3  THEN_ 

PRINT  "input  error:  item  already  stored": GOTO  cont5 
IF  F=4  THEN_ 

PRINT  "input  error:  number  of  items  exceeds  maximum" 
cont5 : 
LOCATE  20, 18: PRINT  "press  any  key  to  continue" 

E$-INPUT$(1) 

RETURN 

REM 

R  EM   ******tttt**HH*HHH*tt**H**H**ttWWtttt****#H*tttttttttttt*H*HHK 
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REM 

REM  subroutine  check  if  item  is  already  stored 
REM 
dupl : 
REM 

IF  TYPE>1  THEN  LOCATE  5,1:_ 
PRINT  "belongs  to  what  item  " ; 
INPUT  "(next  level  stocknumber ) :  ";NAM$ 
LOCATE  5,1:  FOR  X-l  TO  78 -.PRINT  "  ";:  NEXT  :  PRINT 
IF  TYPE=1  THEN  NAM$=NN$ 

NAM$=LEFT$(NAM$,4 )+RIGHT$( NAM$ , 4 )  +  ". "+MID$(NAM$ , 9 , 3 ) 
OPEN  "R" ,1,NAM$,60:FZ=0 

FIELD#1,1  AS  Al$,2  AS  A2$,16  AS  A3$,20  AS  A4$,_ 
8  AS  A5$,5  AS  A6$ , 1  AS  A7$ , 1  AS  A8$,_ 
5  AS  A9$,l  AS  AR$ 
FOR  X-l  TO  100 

GET#1,X 

IF  MID$(A3$,5,l)-"-"THEN  FZ-FZ+1 : 

IF  A3$-NN$  THEN  F=3:G0SUB  errf lag: GOTO  cont6 
NEXT  X 
cont6 : 

FZ-FZ+1: IF  FZ>95  THEN  F-4:G0SUB  errf lag 
CLOSE#l: RETURN 
REM 
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4 .   Source  Code  Program  ESTIMATE 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


program  ESTIMATE  AUGUST  1987 

This  program  simulates  SAMPSIZE  failures  for  a 
maximum  of  500  systems  in  a  selectable  major 
unit  simultaneously.  It  requires  access  to  the 
major  unit  data,  the  system  distribution  data  and 
the  system  data. 

Output  is  the  expected  failure  distribution  within 
the  selected  major  unit  in  terms  of  consumed  items, 
used  maintenance  capabilities  and  system  downtimes. 
If  the  number  of  systems  is  greater  than  2000, 
the  model  is  scaled. 


*  * 

*  * 

*  H 

*  * 

*  M 


**************** 

*  * 
************* 

*  *   j^ 

A$ 

Ax$ 

ADMIN(a) 

AVAIL 

B 

**  B$(x) 
**  c 

**  C$(x) 
**  COST 
**  COST(x) 
»*  COUNT 
»«  CPROB(x) 

D 

Dl 

DAYHOURS 

DELSD 

DIST(a,b) 

DOF 

DOWN 

D0WN(x) 

E 

E$ 

ELTIME 

EX 

EX(x) 

F 

F(x) 

F$ 

Fl 

FH$ 

H 

H(x) 


*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 


************************************** 

*  * 
*  *  *  * 

*  * 

*  * 

Tieldvar.'    )r  randon  ace.       ** 

b*H 

*  * 


Variable  Directory 
******************************** 

auxiliary  variable 
auxiliary  stringvarible 


"001" 


"004" 


SAMP SI 
of  it 


admin  del.  time  level  a   distr 

average  system  availability 

auxiliary  variable 

f ieldvariables  for  file 

auxiliary  variable 

f ieldvariables  for  file 

cost 

cost  spent  on  system  x 

counting  variable  up  to 

cumulative  failure  prob 

auxiliary  variable 

auxiliary  variable 

workhours  per  day 

delay  std.  dev.  in  %   of  mean 

distribution  of  delay  times 

degr .  of  freedom  (GAMMA  distri 

system  downtime 

sum  of  delay  times  on  level  b 

storage  for  time  random  variab 

auxiliary  str ingvar iable 

elapsed  time  for  sim  in  weeks 

current  exponential  r.n. 

failure  time  system  x 

error  flag 

auxiliary  array 

auxiliary  stringvariable 

flag  variable 

system  description 

auxiliary  variable 

auxiliary  pointer 


ZE 
em 


*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

x* 

*  * 

*  * 

*  * 

*  * 

*  * 

b.  )**. 

*  * 

*  * 

les** 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 
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REM 

*  * 

H$(x) 

REM 

*  * 

HEADS(x) 

REM 

*  * 

I 

REM 

tt  * 

IS 

REM 

tt  * 

IT(x) 

REM 

tt  tt 

ITEMS 

REM 

W  tt 

JS 

REM 

»  » 

L 

REM 

*  * 

LABOR 

REM 

tt  M 

LABOR(x) 

REM 

*  * 

LAMBDA 

REM 

tt  tt 

LAMBDA(x) 

REM 

*  * 

LAMBDAS 

REM 

tt  tt 

LEVEL 

REM 

*  * 

LL 

REM 

tt  tt 

M 

REM 

tt  tt 

MTTIME(x) 

REM 

tt  tt 

MTTR 

REM 

tt  tt 

MU(a,b) 

REM 

tt  tt 

MULT 

REM 

tt  tt 

N 

REM 

W  tt 

N$ 

REM 

tt  tt 

Nx 

REM 

tt  tt 

NAMS 

REM 

M  tt 

NI(x) 

REM 

tt  tt 

NO(x) 

REM 

tt  tt 

NULLS 

REM 

tt  W 

OS 

REM 

tt  tt 

p 

REM 

tt  tt 

PI 

REM 

tt  tt 

PC(x) 

REM 

tt  tt 

PE. 

REM 

tt  tt 

PERNUM 

REM 

tt  tt 

PI 

REM 

tt  tt 

POINTER(x) 

REM 

tt  tt 

PROB(x) 

REM 

tt  tt 

PS 

REM 

tt  tt 

Q 

REM 

tt  tt 

QS 

REM 

tt  tt 

REPDIST 

REM 

tt  tt 

REPLCLVL 

REM 

tt  tt 

REPSD 

REM 

tt  n 

RES 

REM 

tt  tt 

RN 

REM 

tt  tt 

S$ 

REM 

tt  tt 

SAMP SIZE 

REM 

tt  tt 

SDOWN(x) 

REM 

tt  tt 

SGLSSCST 

REM 

tt  tt 

SIGMA 

REM 

tt  tt 

SPARECST 

REM 

tt  tt 

SPENT 

pointers  within  item  files 
manpower  requ.  level  a  item  b 
counting  var .  for  #  of  failures 
auxiliary  stringvariable 

#  of  systems  per  major  unit  x 
fieldvariable  for  file  "001" 
fieldvariable  for  file  "001 
auxiliary  variable 
labor,  used  to  bring  system  up 
workhours  used  on  system  x 
failure  rate  of  item 
failure  rate  of  subitem 
failure  rate  of  overall  system 
pointer  for  maintenance  level 
lower  limits  for  uniform  distrib 
auxiliary  variable 
repairtime  for  item  x 
mean  time  to  repair 
mean  of  distribution 
scaling  factor  for  simulation 
counting  var.  for  #  of  systems 
auxiliary  variable 
normally  distr.  random  numbers 
filename  of  current  item  file 

#  of  systems  in  major  unit  x 
system  number 
auxiliary  string  variable 
left  margin  for  print  out 
auxiliary  pointer 
ptr  to  next  active  time 
ptr  to  next  active  time 
pointer  to  next  entry 
number  of  4  week  periods 
trigonometrical  constant 
pointer  to  next  failing  system 
probability  of  failure  for  item 
pointer  to  starting  entry 
auxiliary  variable 
fieldvariable  for  file  "001" 
distribution  of  repairtimes 
replacement  level  for  items 
rep.  time  std.  dev .  in  <%>  of  mean 
result  of  r.  n.  generator 
uniform  r.  n.  to  determine  subitem* 
system  stock  number  ** 
number  of  samples  to  be  computed 
downtime  for  system  x 
cost  of  one  unit  of  system 
standard  deviation 
cost  of  all  spare  stocked  parts 
amount  of  money, spent  on  a  system** 


tt  tt 

tt  tt 

tt  tt 

♦♦  tt 

W  tt 

tt  tt 
tt  tt 
tt  tt 

tt  w 

tt  tt 
tt  tt 

M  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

W  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

Y*  * 

W  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 


tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 
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REM 

H  * 

ST 

REM 

M  * 

START 

REM 

*  tt 

STOCKS 

REM 

*  M 

SYS$ 

REM 

tt  * 

SYSCOST 

REM 

M  * 

SYSNUM 

REM 

*  M 

SYSWKHRS 

REM 

*  H 

SYSTEMS(x) 

REM 

tt  tt 

T(x) 

REM 

H  * 

TA(b) 

REM 

*  * 

TC(x) 

REM 

H  tt 

TCOST 

REM 

tt  M 

TDOWN 

REM 

W  H 

TRANSP(a) 

REM 

*  M 

TS(x) 

REM 

tt  tt 

TT(x) 

REM 

*  * 

U 

REM 

tt  H 

Ux 

REM 

H  * 

U$(x) 

REM 

tt  * 

UL 

REM 

M  ■■* 

UN(x) 

REM 

tt  tt 

UP 

REM 

tt  tt 

V 

REM 

tt  tt 

WEEKDAYS 

REM 

tt  tt 

X 

REM 

tt  tt 

X(x) 

REM 

tt  tt 

Y 

REM 

tt  tt 

Z 

REM 

tt  tt 

Z(x) 

REM 

tt  tt 

ZIF 

REM 

tttttttttttttttttttttttttt 

tt  tt 

M  M 
tt  W 
W  M 


intermediate  pointer 
pointer  to  next  failing  system 
fieldvariable  for  file  "001" 
fieldvariable  for  file  "004" 
systems+spares  costs  in  major  unit* 

#  of  systems  in  the  major  unit  ** 
weekly  #  of  system  operat.  hours  ** 
up  to  500  systems  ** 
auxiliary  array  ** 
admin,  delay  level  b  ** 

#  of  sys  in  m.u.  w/o  lower  echelon** 
total  cost  for  all  comsumed  parts**1 
total  down  time  for  all  systems  ***♦ 
transp.  del. time  level  a  distr.  bHH 

#  of  sys  in  m.u.  w  lower 
transp.  delay  level  b 
auxiliary  variable 
uniformly  distributed  r. 
major  unit  type 

upper  limits  for  uniform  distr 
major  unit  type 
auxiliary  variable 
auxiliary  variable 
number  of  workingdays  per  week 
auxiliary  variable 
auxiliary  array 
auxiliary  variable 
control  variable 
auxiliary  array 
counter  for  file  "001" 


echelon 


n. 


tt  tt 

tt  tt 

»♦  »♦ 

tt  tt 

tt  tt 

tt  w 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

tt  tt 

M  tt 


tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 
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REM 

REM 

REM 

REM 

REM 

CLS 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


#  Start  of  Main  Program  # 


ADMIN(3),B$(10),C$(10),COST(5  02) ,DIST(5,5) 
D0WN(5) , EX (502) ,F(150) ,H(10) ,H$(9) , HEADS (5  )  ,IT(20) 
LABOR (502) ,LAMBDA(100) ,MTTIME(5) ,MU(5,5) 
NI(150),NO(502),PC(502) , P0INTER( 5  00 ) ,PR0B(100) 
SDOWN(5  02) .SYSTEMS (500) ,T(10) ,TA(4) ,TC(21) 
TRANSP(3),TS(21) ,TT( 4 ) ,U$( 20  ) ,UN( 150 ) ,X( 10 ) 
Z(150) 

4,6,8 

3,7,16 

"user  / 

"Depot 


org  maint. " , "      DS  /  GS      " 
/  Industry  ","  no  more  entries  "."uniform" 
"normal " , "exponential " , "Gamma" , "lognormal " 
"fixed" , "transportation  times  (one  way)" 
"admin  time  delays" , "brigll ", "brigl2" , "brigl3" 
"brigl4" , "brigl5" , "brigl6" 
"divl" , "div2" , "div3" , "div4 


D 


"ARM 

"INF. 

"SIGN. 

"ARM'D 

"DIV. 


"INF. 
"DIV. 


BRIG" 

BRIG" 

BRIG" 

DIV" 

UNITS" 
DIV.  " 

UNITS" 


"MECH.  BRIG" 

"AIRB.  BRIG" 

"ACC.   BRIG" 

"DIV.  UNITS" 

"MOUNT. DIV  " 

"DIV.  UNITS" 

"AASLT   DIV" 

"CORPS  UNITS" 
KILL"00?" 
RANDOMIZE  TIMER 
NULL$-"0":0$-" 
BEEP: LOCATE  10,5 
F-0:ON  ERROR  GOTO 
fl: 

PRINT  "Enter  total  number  of  failures 
INPUT  "  (  <=  1000  ):  ".SAMPSIZE 
IF  SAMPSIZE<-0  OR  SAMPSIZE>1000  THEN_ 

F-1:G0SUB  errhandler 
A=2:F0R  X=l  TO  3 : READ  MU(A.X):NEXT  X 
A-1:F0R  -X-l  TO  3 -.READ  MU(A,X):NEXT  X 
FOR  Y-l  TO  10:READ  B$(Y):NEXT  Y 


, "brigl7" , "brigl9" 

" , "div5" , "div6" , "corps" 

"MOUNT. BRIG" 

"AVIAT.BRIG" 

"MECH.  DIV  " 

"DIV.  UNITS" 

"AIRB.   DIV" 

"DIV.  UNITS" 

"CORPS      " 


REM  erase  all  old  temporary  files 
REM  seed  random  number  generator 
":PAGE-1 


errhandler 


to  simulate 


CLS: BEEP: LOCATE 

10, 30: PRINT  "a 

djust 

paper  in 

printer" 

LOCATE  15,30:PRINT  "press  a  ke 

y  to  continue" 

110: 

E$=INPUT$(1):IF 

E$=""  THEN  110 

ELSE 

CLS 

LPRINT  " 

PAGE  " 

;  PAGE 

INCR  PAGE: LPRINT: LPRINT 

LPRINT  0$; "Number  of  Failures 

to  be 

generate 

d  :  " ; 

LPRINT  SAMPSIZE: 

:  LPRINT: LPRINT 
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LPRINT  0$;_ 

"Distributions  and  Parameters  for  Transportational " 

LPRINT  0$;_ 

LPRINT  0$;"         and  Administrative  Delays" 

LPRINT  0$;" — — -" 

LPRINT: LPRINT 

CLS: LOCATE  10,20 

PRINT  "Enter  desired  value  for  the"; 

PRINT  "  standard  deviation  of" 

LOCATE  12,20 

PRINT  "  the  delay  distributions"; 

PRINT  "  in  per  cent  of  the  mean" 

LOCATE  20,20 

PRINT  "        the  default  value  is  10  per  cent" 

LOCATE  22,20 

PRINT  "    to  accept  press . ENTER ," ; 

INPUT  "  else  type  percentage  ",E 

IF  E>0  THEN  DELSD-E/100  ELSE  DELSD-0.1 

A-1:G0SUB  dlay    :REM  determine  transp.  delay  times 

INCR  ArGOSUB  dlayrREM  determine  admin,  delay  times 

GOSUB  repdist     :REM  determine  repair  time  distrib. 

LPRINT  CHR$(12) 

f2: 

CLS: BEEP: LOCATE  10,20 

INPUT  "Enter  number  of  workhours  per  day  ",DAYH0URS 
IF  DAYHOURS<=0  OR  DAYH0URS>24  THEN_ 
F-2: GOSUB  errhandler 

f3: 

LOCATE  13,20 

INPUT  "Enter  number  of  workdays  per  week  ".WEEKDAYS 

IF  WEEKDAYS<=0  OR  WEEKDAYS >7  THEN  F-3: GOSUB  errhandler 

SYSWKHRS»WEEKDAYS»DAYHOURS 

OPEN  "A", 6, "006" 

WRITE#6 , "WEEKDAYS-" , WEEKDAYS, "DAILY  HOURS-" ,DAYH0URS 

CLOSE  6 

f4: 

CLS: BEEP: LOCATE  10,10 

PRINT"Enter  the  System  Stock" ;_ 

"  Number  (e.g.  1234-12-123-1234)" 

LOCATE  13,45: INPUT"  ",S$ 

IF  LEN(S$)<>16  OR  MID$( S$ , 5 , 1 ) <> "- "_ 

OR  MID$(S$, 8,1  )<>"-"  OR  MID$(S$,12,l)<>"-"_ 

THEN  F-4: GOSUB  errhandler 
C-2 
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REM 

REM  COMPUTE  LAMBDA-SYSTEM  (LAMBDAS) 

REM 

CLSrLOCATE  10,10 

PRINT  "Compute  Lambda  for  overall  System" 

NAM$=LEFT$(S$,4)+RIGHT$(S$,4)+" . "+MID$( S$ , 9 , 3 ) 

10  OPEN  "i" ,5 ,NAM$: CLOSE  5 

OPEN  "r" ,5 ,NAM$ ,60   :REM  read  random  access  data  files 

FIELD#5,1  AS  Al$,2  AS  A2$,16  AS  A3$,20  AS  A4$,_ 

8  AS  A5$,5  AS  A6$ , 1  AS  A7$,l  AS  A8$,_ 

5  AS  A9$,l  AS  AR$ 
GET  5 , 1:A-VAL(A6$) : FH$=A4$ : SGLSSCST=VAL( A5$ ) 
IF  A=0  THEN  10  ELSE  LAMBDAS=A : CLOSE  5 : GOTO  101 

10: 

GET  5 , C 

WHILE  MID$(A3$, 5,1)-"-" 

LAMBDA(C)=1/VAL(A6$)      : REM  individual  failure  rate 

C-C+1:GET#5,C 
WEND 

C-C-1:LAMBDAS=0 
FOR  Y-2  TO  C 

LAMBDAS-LAMBDAS+LAMBDA( Y ) 
NEXT  Y:CLOSE#5:C=2 
REM 

REM  GET  System  Dislocation  within  Major  Unit 
REM 

101: 

CLS: BEEP: LOCATE  8,23 

PRINT  "System  Dislocation  within  Major  Units" 

LOCATE  12,20 

PRINT  "Input  filename  for  system  distribution  file" 

LOCATE  14,26 

PRINT  "Default  filename  is  DISTRIBN" 

LOCATE  20,20 

PRINT  "To  accept  default  press  ENTER  or  enter  name" 

LOCATE  22, 30: INPUT  "  ",F$ 

IF  F$«""  THEN  F$="DISTRIBN" 

Fl-0 

FOR  X  =  l  TO  150 

Z(X)=0 
NEXT  X 
CLS 

OPEN  "I",5,F$ 
INPUT#5,A$:X=VAL(A$) 
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FOR  A-l  TO  X 

INPUT#5,UN(A) ,NI(A) 

IF  UN(A)=198  THEN  Fl-1 

IF  UN(A)=199  THEN  Fl-2 
NEXT  A 
CLOSE#5 
FOR  A=0  TO  20 

TS(A)=0 
NEXT  A 
FOR  A=l  TO  8 

READ  F$:D=VAL(RIGHT$(F$,2) ) : GOSUB  compsys 
NEXT  A 
FOR  A=l  TO  6 

READ  F$:D=VAL(RIGHT$(F$,1 ) ): GOSUB  compsys 
NEXT  A 

READ  F$:D=0: GOSUB  compsys 

LPRINT  "  PAGE  " ; PAGE 

INCR  PAGE 
LPRINT: LPRINT 

F$-"Dislocation  of  "+FH$+"within  Corps" 
LPRINT  0$;0$;F$ 
B=LEN(F$):NN$="" 

FOR  A-l  TO  B:NN$-NN$+"=":NEXT  A 
LPRINT  0$;0$;NN$: LPRINT: LPRINT 
LPRINT  0$;0$; "Major  Unit     #  of  systems" 

LPRINT  0$;0$;  " ":  LPRINT 

CLS: LOCATE  2,10 

PRINT 

LOCATE 

PRINT 

LOCATE 

PRINT 

LOCATE 

PRINT 

LOCATE 

PRINT 

M-l 

FOR  A-ll  TO  17 

READ  F$:IF  Z(A)>0  THEN  LPRINT  0$;0$;F$ 
LPRINT  USING  "######"; TS( A ) 

IF  Z(A)-0  THEN  11 

IT(M)-TS(A) 

LOCATE  M+6,10 

PRINT"== 

LOCATE  M+6,15 

PRINT  F$: LOCATE  M+6 , 30: PRINT  "(";TS(A) 

LOCATE  M+6, 45: PRINT 
11: 

NEXT  A 
A-19:READ  F$ 


3,10 
'==  Menu 
4,10 


CHOICE  OF  MAJOR  UNIT  TYPE 


5,10 


6,10 


Customer 


#  systems 


selection   == 


.  _  M 


fl  \   »t 

";M:U$(M)=F$: INCR  M 
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IF  Z(A)>0  THEN  LPRINT  0$ ; 0$ ; F$ , : 

LPRINT  USING  "###### "; TSTA ) 
IF  Z(A)=0  THEN  lal 
IT(M)-TS(A) 
LOCATE  M+6,10 

PRINT  "==  ==" 

LOCATE  M+6,15 

PRINT  F$: LOCATE  M+6 , 30 : PRINT  " ( " ; TS( A  ) ; " ) " 
LOCATE  M+6,45:PRINT  ":  " ;M: U$(M )=F$ : INCR  M 
lal: 
FOR  A-l  TO  6 

READ  F$,NN$ 

IF  Z(A)=0  THEN  12 

LPRINT  0$;0$;F$, 

LPRINT  USING  "######"; TS( A  ): LPRINT  0$;0$;NN$, 

LPRINT  USING  "######"; TC (A ) 

LOCATE  M+6,10 

PRINT"==  — " 

LOCATE  M+6,15 

PRINT  F$: LOCATE  M+6, 30: PRINT  " ( " ;TS( A  )  ; " ) " 

IT(M)-TS(A) 

LOCATE  M+6, 45: PRINT  " :  " ;M:U$(M)=F$ : INCR  M 

LOCATE  M+6,10 

PRINT" —  ==" 

LOCATE  M+6,15 

PRINT  NN$: LOCATE  M+6, 30: PRINT  " ( " ;TC( A  ) ; "  )  " 

IT(M)-TC(A) 

LOCATE  M+6, 45: PRINT  ":  " ;M: U$(M)=NN$ : INCR  M 
12: 

NEXT  A 
READ  F$,NN$ 

LPRINT  0$;0$;F$,  : LPRINT  USING  "######"; TS( 0  ) 
LPRINT  0$;0$;NN$, : LPRINT  USING"######" ; TC( 0 ) 
LOCATE  M+6,10 

PRINT  "< —  ==" 

LOCATE  M+6, 15: PRINT  F$ 
LOCATE  M+6, 30: PRINT  " ( " ; TS( 0 ) ; " ) " 

IT(M)=TS(0):LOCATE  M+6,45:PRINT  »:  " ;M: U$(M)=F$ : INCR  M 
LOCATE  M+6 ,10 

PRINT  " —  ==" 

LOCATE  M+6, 15: PRINT  NN$ 
LOCATE  M+6, 30: PRINT  " (  "  ; TC ( 0  )  ; " ) " 

IT(M)-TC(0):LOCATE  M+6,45:PRINT  " :  " ; M: U$(M)=NN$ : INCR  M 
F$="Reserve" : Y=0 
IF  Fl-1  THEN  Y=INT(NI(X)*TS(0)+.5): 

LPRINT  0$;0$;F$, : LPRINT  USING  "##?###" ;Y 
IF  Fl=l  THEN  LOCATE  M+6,10:_ 

PRINT"  =  =  — " 

IF  Fl=l  THEN  LOCATE  M+6, 15: PRINT  F$: LOCATE  M+6,30:_ 

PRINT  "( ";Y; "  )":IT(M)  =  Y:_ 

LOCATE  M+6,45:PRINT  ":  " ;M: U$(M )-F$ :M=M+1 
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IF  Fl-2  THEN  LPRINT  0$;0$;F$,:_ 

LPRINT  USING  "######"; NI ( X ) 
IF  Fl-2  THEN  LOCATE  M+6,10:_ 

PRINT" — 
IF  Fl-2  THEN  LOCATE  M+6 , 15 : PRINT  F$:_ 

LOCATE  M+6, 30: PR INT  " ( " ; NI (X ) ; " ) " :" 

IT(M)-NI(X):LOCATE  M+6,45:PRINT  ":  " ;M:U$(M)-F$ :M=M+1 

LPRINT  0$;0$;  " --- —  " 

F$="Total" 

IF  Fl-1  THEN  LPRINT  0$;0$;F$,:_ 

LPRINT  USING  "######"; Y+TS( 0 ) 
IF  Fl-2  THEN  LPRINT  0$;0$;F$,:_ 

LPRINT  USING  "######"; NI (X )+TS( 0 ) 
LOCATE  M+6, 10 

REM 

REM   GET  MAJOR  UNIT  DATA 

REM 

13: 

MIN-1000 

FOR  X-l  TO  M-l 

IF  MIN>IT(X)  THEN  MIN-IT(X) 
NEXT  X 

IF  SAMPSIZE<MIN  THEN  F-5: GOSUB  errhandler 
BEEP: LOCATE  24, 20: INPUT  "Enter  choice  :  ",E 
IF  E<1  OR  E>M-1  OR  IT( E ) >SAMPSIZE  THEN_ 
LOCATE  24, 20: PRINT  "  " : GOTO  13 

LPRINT : LPRINT : LPRINT : LPRINT 
LPRINT  0$;0$; "choice  :";E,: 
IF  RIGHT$(U$(E) , 5)="UNITS"  THEN_ 

MU1$-U$(E ) :MU2$=U$(E-1 ) :_ 

LPRINT  U$(E),U$(E-1):LPRINT_  • 

ELSE  MU1$-U$(E):MU2$="?": LPRINT  U$(E):LPRINT 
ADDIT=0:MULT=1:I-IT(E) 
WHILE  I+ADDIT>500       :REM  scaling  of  number 

MULT-MULT*3: I-INT( IT( E )/MULT ) : ADDIT-IT( E )-MULT*I 
WEND:C-2 
OPEN  "o",5,"005" 
WRITE#5 , "number  of  systems:", I 
WRITE#5 , "number  of  simulations : ", SAMPSIZE 
REM 

REM  Generation  of  MTBF ' s 
REM 

CLS:LOCATE  11,27 

PRINT  "Subroutine  FAILURE  TIME  Generation      " 
PS-1 
FOR  N-l  TO  I 

MU-1/ LAMBDAS 

GOSUB  expon 

GOSUB  waittime 
NEXT  N 
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FOR  N-l  TO  I:WRITE#5 ,NO(N) ,EX(N) ,PC(N):NEXT  N 
CLOSE  5 

REM  At  this  point  for  up  to  500  systems  {N0(x)>  the 
REM  MTBF's  <EX(x)>  and  the  linking  pointers  {PC(X)>  are 
REM  predetermined  and  stored. 

REM  Now  starts  the  simulation  core.  For  SAMPSIZE  trials 
REM  the  program  picks  the  most  current  MTBF, 
REM  generates  a  failure  down  to  the  part  level  and 
REM  computes  all  times  and  costs  involved. 
REM  After  having  done  this  the  program  generates  a  new 
REM  MTBF  for  the  respective  system,  gets  this  into  the 
REM  LINKED  LISTING  and  goes  to  the  next  startpointer . 
REM  At   the  end   of  this   part  for  SAMPSIZE  simulations 
REM  the  number  of  needed  components,   subcomponents  and 
REM  parts  is  known. 

REM  For  each  system  the  ratio  of  up  and  downtime, 
REM  the  amount  of  maintenance  manhours  for  each  support 
REM  level  and  the  respective  administrative  and/or 
REM  transportation  delay  times  will  be  computed. 
SYSNUM-I  *MULT :  CT-1 
OPEN  "r" ,1," 001 ",80 

FIELD#1,2  AS  J$,16  AS  STOCKS , 18  AS  ITEMS, 3  AS  B$(l),_ 
3  AS  B$(2),3  AS  B$(3),3  AS  B$(4),3  AS  B$(5),_ 
3  AS  B$(6),3  AS  B$(7),3  AS  B$(8),4  AS  B$(9), 
1  AS  Q$,8  AS  Ql$,7  AS  Ll$ 
OPEN  "r" ,3, "003" ,80 

FIELD#3,4  AS  Sl$,3  AS  RL$ , 3  AS  11$, 16  AS  Nl$,_ 
11  AS  RT$,11  AS  TA$,11  AS  TT$,_ 
11  AS  MTTF$,10  as  L$ 
OPEN  "r"  ,4, "004 ",30 

FIELD#4,3  AS  C$(l),3  AS  C$(2),3  AS  C$(3),3  AS  C$(4),_ 
3  AS  C$(5),3  AS  C$(6),3  AS  C$(7),3  AS  C$(8),_ 
6  AS  SYS$ 
CLSrLOCATE  10,28:PRINT  "  Iteration  for  Simulation"; 
FOR  COUNT-1  TO  SAMPSIZE:  REM  for  SAMPSIZE  trials 

N$-S$: LOCATE  10, 20: PRINT  COUNT; 

IF  COUNT-1  THEN  PRINT  "st"; 

IF  COUNT-2  THEN  PRINT  "nd"; 

IF  COUNT-3  THEN  PRINT  "rd"; 

IF  C0UNT>3  THEN  PRINT  "th"; 

UP=EX(PS) :P=PC(PS) 

D1-SD0WN( PS ) : SPENT=C0ST(  PS ) 

LAB0R=LAB0R(PS) 
REM 

REM  Generate  Failure  down  to  Part  Level 
REM 

C-2:G0SUB  failure: PUT  4 , COUNT 

FOR  X-l  TO  8:H(X)=VAL(C$(X) ):NEXT  X 

LEVEL- 1 
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14 


NAM$-LEFT$(N$,4)+RIGHT$(N$,4)+" . "+MID$(N$ , 9 , 3  ) 


OPEN  "r'\6,NAM$,60 
FIELD#6,1  AS  Al$,2  AS 
8  AS  A5$,5  AS 
5  AS  A9$,l  AS 
GET#6,H( LEVEL) 

MU=VAL( A9$ ) : COST=VAL( A5$ ) :N$=A3$ 
I=VAL(A1$):REPLCLVL=VAL(A7$) 
CLOSE  6 

LSET  L$=STR$(MU) 
SIGMA=REPSD*MU 
IF  REPDIST=1  THEN  GOSUB 
IF  REPDIST=2  THEN 

GOSUB  normal 

IF  RES<0  THEN  RES=0 - 

GOTO  14a 
END  IF 

IF  REPDIST=3  THEN  GOSUB 
IF  REPDIST=4  THEN  GOSUB 
IF  REPDIST-5  THEN  GOSUB 
IF  REPDIST-6  THEN  GOSUB 


:REM  get  item  data 
A2$,16  AS  A3$,20  AS  A4$, 
A6$,l  AS  A7$,l  AS  A8$,_ 
AR$ 


unlform:GOTO  14a 


expon:GOTO  14a 
gamma: GOTO  14a 
lognormal : GOTO 
fixed 


14a 


14a: 

MTTR-RES 
IF  LEVEL= 


:REM  random  variable  repair  time  in  hrs 
1  THEN  GOSUB  dtime:_ 

DOWN-DOWN+MTTR : TDOWN=TDOWN+DOWN*MULT 


MTTIME(REPLCLVL)-MTTIME(REPLCLVL)+MTTR 
IF  I<9  THEN 

MTBF-0 : LEVEL-LEVEL+1 

LSET  S1$=SYS$ 

LSET  RL$=STR$(REPLCLVL) 

LSET  I1$=STR$(I) 

LSET  Nl$-N$ 

LSET  RT$=STR$(MTTR) 

LSET  TA$=STR$(TA(REPLCLVL-1)  ) 

LSET  TT$=STR$(TT(REPLCLVL-1  )  ) 

LSET  MTTF$=STR$(MTBF) 

PUT#3,CT 

INCR  CT:GOTO  14 
END  IF 
UP-UP+DOWN 
MU-1/ LAMBDAS 
GOSUB  expon 
MTBF-RES»DAYHOURS 
LSET  S1$-SYS$ 
LSET  RL$=STR$(REPLCLVL) 
LSET  I1$-STR$(I) 
LSET  Nl$-N$ 


:REM  time  system  up  again 
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LSET  RT$=STR$(MTTR) 

LSET  TA$=STR$(TA(REPLCLVL-1 ) ) 

LSET  TT$=STR$(TT(REPLCLVL-1) ) 

LSET  MTTF$=STR$(MTBF) 

PUT#3 , CT 

INCR  CT 

EX-MTBF+UP  :REM  new  failure  time 

GOSUB  upll 
NEXT  COUNT 

REM  At  this  point  for  up  to  500  systems  a  total  of 
REM  SAMPSIZE  failures  are  stored  in  "005".  The  failure 
REM  parameters  are  stored  in  "004".  The  manpower 
REM  requirements  for  each  level  are  stored  in  "006". 
ELTIME=UP/SYSWKHRS : PERNUM=ELTIME/ 4 
OPEN  "a", 6, "006" 

WRITE  #6, "Scaling  Factor=" ,MULT 

WR I TE#6 , "Summary  of  item,  manpower-requirement" 
CLS:LOCATE  11,20 

PRINT  "Subroutine  Summation  of  consumed  Items   " 
LPRINT  CHR$(12) 

LPRINT  "  PAGE  " ; PAGE 

INCR  PAGE: LPRINT: LPRINT 
LPRINT_ 

Summary  of  Items  and  Manhours  for";_ 
SAMPSIZE; ; "Simulations" 
LPRINT 


C$(2)-"0rg.  Maintenance" 
C$(3)-"DS/GS  Maintenance" 
C$(4)«"Depot  Maintenance" 
FOR  X-2  TO  4 

C-1:LPRINT:LPRINT:IF  X>2  THEN  LPRINT  CHR$(12):_ 

LPRINT  "  PAGE  " ; :_ 

LPRINT  PAGE: INCR  PAGE 

LPRINT: LPRINT 

LPRINT  "  ";CHR$(27);CHR$(45 );CHR$(1 );_ 

"For  Level  :"; C$(X ); CHR$( 27 ); CHR$( 45 ); CHR$( 0 );: LPRINT 

LPRINT: LPRINT: LPRINT  0$;_ 

"   stock  number       Item  Description      ";_ 
#  used" 

LPRINT  0$  ;  •»-——--. —  =  =  =  ===  =  ====  ============»  ;_ 

GET#1 ,C 

Q=VAL(Q$) 

WHILE  MID$(ST0CK$,5 ,1 )="-" 

IF  Q=X  THEN  LPRINT  0$ ; STOCKS , ITEMS ,VAL( B$( 9 ) ) 

INCR  C:GET#1,C:Q=VAL(Q$) 
WEND 
LPRINT : LPRINT : LPRINT 
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LPRINT  0$;_ 

"total  consumed  manhours 

LPRINT  USING  "######.## 

LPRINT : LPRINT : LPRINT 

LPRINT  0$;_ 

"average  manhrs  within  4 

LPRINT  USING  "######.## 


on  this  level 
hrs. ";MTTIME(X) 


weeks  on  this  level  :  ' 
hrs. ";MTTIME(X)/PERNUM 


Y=MTTIME( X ) / ( PERNUM*DAYHOURS "WEEKDAYS* 4 ) 
REM 

REM  include  at  least  1  person  if  work  to  do 
REM 

IF  Y=0  THEN  HEADS (X)=0 

IF  Y>0  AND  Y<-1  THEN  HEADS( X )=MULT 

IF  Y>1  THEN  HEADS(X)=INT(Y+0.5 )*MULT 

WRITE  #6,X,HEADS(X) 

LPRINT : LPRINT : LPRINT 

LPRINT  0$; 

LPRINT  "average  rounded' number" ; 

LPRINT  "  of  mainten.  personal  :  ";_ 

HEADS(X); 

IF  HEADS(X)>1  THEN__ 

LPRINT  "repairmen"  ELSE  LPRINT 
NEXT  X 

CHR$(12) 


"repairman" 


LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 


PAGE 


items": GET  1,C 


PAGE:INCR  PAGE : LPRINT : LPRINT 
0$;0$; "Additional  Statistics" 
0S*0$* " ========»=============" 

LPRINT : LPRINT : LPRINT 
C-1:WRITE#6 , "4  week  stock  levels  for 
WHILE  MID$(  STOCKS,  5,1  )-"-" 
IF  VAL(J$)-9  THEN_ 

TC0ST=TC0ST+VAL(B$(9) )*VAL(Q1$) 
N-INT(VAL(B$(9) )/PERNUM+.5 ) 
IF  N<1  THEN  N-l 
SPARECST=SPARECST+N*VAL( Ql$ ) 
WRITE#6 , J$ , STOCKS , ITEMS , N , Ll$ : INCR  C 
WEND 

LPRINT : LPRINT : LPRINT 
LPRINT  0$; 

LPRINT  using"total  elapsed 
LPRINT  USING  "  simulations 
LPRINT : LPRINT : LPRINT 
LPRINT  0$; "total  number  of 
LPRINT  USING  "####  simulations 
LPRINT  USING  "  ###.##"; PERNUM 
LPRINT : LPRINT : LPRINT 

LPRINT  0$; "average  system  down  time     :  "; 
LPRINT  USING  "#####.##  Days" ; ( TDOWN/SYSNUM ) /DAYHOURS 
LPRINT : LPRINT : LPRINT 
AVAIL-(l-( TDOWN/SYSNUM) /UP )»100 


GET  1 , C 


time  for  ####"; SAMPSIZE ; 

:  ########.##  weeks ":ELTIME 


week  periods  for 
"; SAMPSIZE; 
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LPRINT  0$; "average  system  availability  :  "; 

LPRINT  USING  "##.##  per  cent"; AVAIL 

LPRINT : LPRINT : LPRINT 

LPRINT  0$; "average  maintenance  cost  per  system  :  "; 

LPRINT  USING  "$$#########.##"; TCOST/SYSNUM 

LPRINT : LPRINT : LPRINT 

SYSCOST=SYSNUM*SGLSSCST+SPARECST 

LPRINT  0$; "initial  system  cost  for  "; 

IF  MU2$="?"  THEN  LPRINT  MU1$;_ 

ELSE  LPRINT  MU1$;"  ";MU2$; 
LPRINT  ":  ";:LPRINT  USING  "$$#########.##"; SYSCOST 
LPRINT  0$; "(systems  and  spare  parts  for  4  weeks) 
LPRINT : LPRINT : LPRINT 

LPRINT  0$;"cost  of  additional  4  week  supplies    :  "; 
LPRINT  USING  "$$#########.##"; TCOST/PERNUM 
LPRINT : LPRINT : LPRINT 
LPRINT  CHR$( 12): CLOSE  #6  - 
CLS: LOCATE  10,10 
PRINT  USING  "elapsed  time  for  ####  simulations  :";_ 

SAMPSIZE; 
PRINT  USING  "  ######.##  weeks";ELTIME 
LOCATE  20,34: PRINT  "PROGRAM  END" 
CLOSE: END 
REM 

REM  ######################### 

REM  #   End  of  Main  Program   # 

REM  ######################### 

REM 
R EM  ************************************************** 
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REM 

REM  Subroutine  ENTER  ESTIMATED  DELAY  TIMES 

REM 

dlay : 

REM 

READ  A$ 

15: 

CLS: LOCATE  10,10 

PRINT"Enter  required  information  about  the  ";A$;":" 

PRINT 

LOCATE  12, 15: PRINT  "-  on  the  ";B$(1);H  level    (  1  ) » 

LOCATE  13,15: PRINT  "-  on  the  ";B$(2);"  level    (  2  )" 

LOCATE  14, 15: PRINT  "-  on  the  " ;B$(3);"  level    (  3  ) " 

LOCATE  17,15: PRINT  "-         ";B$(4);"  (  9  )" 

16: 

INPUT  B 

IF  B<1  OR  B>3  AND  B<>9  THEN  16  ELSE_ 

IF  B-9  THEN  CLS: GOTO  17 

ELSE  GOSUB  deldist:G0T0  15 
17: 

RETURN 
REM 
REM  ************************************************** 


262 


REM 

REM  Subroutine 

REM 

REM 

deldist : 

REM 

E$-" 

18: 

CLS: LOCATE  8 

PRINT  "Enter 


ENTER  ESTIMATED  ADMIN 
DELAY  DISTRIBUTIONS 


AND  TRANSPORT 


30: PRINT  A$: LOCATE  10,20 
desired  distribution  for 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


12 
13 
14 
15 
16 
17 
21 


20 
20 
20 
20 
20 
20 
26 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


B$(5  )  : 
B$(6): 
B$(7): 
B$(8): 
B$(9): 
B$(10) 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
: LOCATE 


12, 
13, 
14, 
15, 
16, 
17 


40: 
40: 
40: 
40: 
40: 
,40 


the  time 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

: PRINT 


delays : " 
1 
2 
3 
4 
5 
(  6  ) 


PRINT  "default  distribution  is  NORMAL" 

LOCATE  22,20 

PRINT  "to  accept  default  press  ENTER"; 

INPUT  "  else  type  number  ",E 

IF  E>0  THEN  DIST(A,B)-E  ELSE  DIST(A,B)-2 

19: 

CLS: LOCATE  8,20: PRINT  A$ 

PRINT: PRINT  "      On  the  ";B$(B);_ 
"  level,  enter  for  the  ";_ 
B$(DIST(A,B)+4 ); "  distribut ion" : PRINT 
PRINT  E$;"the  average  (mean)  value  in  hours" 
PRINT  E$;"the  default  value  is:"; 
PRINT  MU(A,B) 

LOCATE  22,20 

PRINT  "to  accept 

INPUT  "  else  type 

IF  E>0  THEN  MU(A,B)-E 

SIGMA=DELSD»MU(A,B) 

LPRINT  0$; 

IF  A-l  THEN_ 

LPRINT  "transportation 

IF  A=2  THEN_ 

LPRINT  "administrative 


default  press  ENTER"; 
value  " ,E 


delays  -  level 


;B$(B) 


LPRINT  OS; " 

LPRINT  0$; 

IF  DIST(A,B)=1  THEN 

LL=MU(A,B)-SQR(3*SIGMA~2 ) 
UL=MU(A,B)+SQR(3*SIGMA~2 ) 
LPRINT  USING  "Lower  Limit- 
LPRINT  USING  "Upper  Limit- 

END  IF 


delays  -  level   ";B$(B) 
distribution  " ; B$( 4+DIST( A ,B  )  ) 


###.###" 


LL 


UL 
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IF  DIST(A,B)=2  THEN 

LPRINT  USING  "Mean   =  ###.###     " ;MU( A , B ) , 

LPRINT  USING  "Sigma  -  ###.###"; SIGMA 
END  IF 
IF  DIST(A,B)=3  THEN 

LPRINT  USING  "Lambda-  ###.###"; 1/MU( A ,B ) 
END  IF 
IF  DIST(A,B)=4  THEN 

DOF=INT( (MU(A,B)/SIGMA)~2)+1 

LPRINT  USING  "Lambda-  ###.###     " ; DOF/MU( A ,B ) , 

LPRINT  USING  "DOF=  ###";DOF 
END  IF 
IF  DIST(A,B)=5  THEN 

LPRINT  USING  "Mean   -  ###.###     ";MU(A,B), 

LPRINT  USING  "Sigma  -  ###.###"; SIGMA 
END  IF 

IF  DIST(A,B)=6  THEN  LPRINT  "value-  ";MU(A,B) 
LPRINT 
RETURN 
REM 
REM  ************************************************** 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 

repdist : 
REM 

CLS:LOCATE  10,20 
PRINT  "Enter  desired 
12,20 


Subroutine  ENTER  REPAIRTIME  DISTRIBUTION 

the  default  distribution  for  the  repairtimes  is 
lognormal  with  mu  given  by  the  manufacturer  and 
a  sigma  of  10  £  of  the  mean 


distribution  for  the  repair 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
PRINT 


13, 
14, 
15, 
16, 
17, 
20, 
"the 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


20 
20 
20 
20 
20 
20 
default 


B$(5) 
B$(6) 
B$(7) 
B$(8) 
B$(9) 
B$(10) 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
: LOCATE 


12 
13 
14 
15 
16 
17, 


40: PRINT 
40:PRINT 
40: PRINT 
40: PRINT 
40:PRINT 
40: PRINT 


1 
2 
3 
4 
5 
(  6 


time 

)" 
)" 
)" 
)" 
)" 
)" 


distribution  is  LOGNORMAL" 


REPDIST-5 

LOCATE  22,20 

INPUT  "to  accept  press  ENTER,  else  type  number  ",E 

IF  E>0  THEN  REPDIST-E 

CLS: LOCATE  10,20 

PRINT  "Enter  desired  value  for  the  standard  deviation" 

LOCATE  12,21 

PRINT  "the  default  value  is  10  per  cent  of  the  mean" 

REPSD-0.1 

LOCATE  22,20 

INPUT  "to  accept  press  ENTER,  else  type  percentage  ",E 

IF  E>0  THEN  REPSD-E/100 

RETURN 

REM 

R  EM   ****M*H**HM******tttttt«*H*tt**M****MH*HH*tt*MHHtt*Htttt*H 
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REM 

REM  Subroutine  FAILURE 

REM 

failure: 

REM 

NAM$=LEFT$(S$,4)+RIGHT$(S$,4)+". "+MID$( S$ , 9 , 3 ) 

FOR  X=l  TO  8:H$(X)="0":NEXT  X : REM  reset  str ingvar iables 

X=l 

111: 

OPEN  "r" ,6 ,NAM$,60   :REM  read  random  access  data  files 

FIELD#6,1  AS  Al$,2  AS  A2$,16  AS  A3$,20  AS  A4$,_ 

8  AS  A5$,5  AS  A6$ , 1  AS  A7$ , 1  AS  A8$,_ 

5  AS  A9$,l  AS  AR$ 
GET#6,C 
WHILE  MID$(A3$,5,1)="-" 

LAMBDA(C)=1/VAL(A6$)     : REM  individual  failure  rate 

INCR  C:GET#6,C 
WEND:DECR  C:LAMBDA=0 
FOR  Y=2  TO  C 

LAMBDA-LAMBDA+LAMBDA( Y ) 
NEXT  Y 

CPROB=0:RN=RND 
FOR  Y=2  TO  C  :REM  for  all  related  items 

PROB(Y)=LAMBDA(Y) /LAMBDA: REM  comp.  prob.  of  failure 

CPROB=CPROB+PROB( Y)      :REM  compute  cumul .  prob . s 

IF  RN<-CPROB  THEN  H$( X )=STR$( Y ) : 

GOTO  112    :REM  pick  item 
NEXT  Y 
112: 

GET#6 , Y : A$=A3$ : I$=A4$ : A=VAL( Al$ ) 
CLOSE  #6:G0SUB  updl:REM  get  data  set 
IF  A-9  THEN  GOTO  113       : REM  leave  if  a  part 
REM  prepare  next  filename 

NAM$=LEFT$ ( A$ , 4 )+RI GHT$ ( A$ , 4 ) + " . » +MID$ ( A$ , 9 , 3 ) 
OlsINCR  X:GOTO  111        :REM  next  subitem  iteration 
113: 

FOR  X-l  TO  8:LSET  C$( X )-H$( X ) : NEXT  X 
LSET  SYS$=STR$(PS) 
RETURN 
REM 
R EM  ************************************************** 
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REM 

REM  Subroutine  UPDATE  "001" 

REM 

updl : 

REM 

ZIF-1 

114: 

ON  ERROR  GOTO  116 : GET#1 , ZIF 

ON  ERROR  GOTO  0 

IF  MID$( STOCKS, 5,1 )="-"  THEN  115  ELSE  116 

115: 

IF  STOCK$=A$  THEN  H$( 9 )=STR$( VAL( B$( 9 ) )+MULT ) : GOTO  117 

INCR  ZIF:GOTO  114 

116: 

H$(9)-STR$(MULT) 

117: 

LSET  J$-A1$:LSET  STOCK$=A$ : LSET  ITEM$=I$ : LSET  Q$=A7$ 

FOR  Q-l  TO  9: LSET  B$( Q  )=H$( Q ) : NEXT  Q : LSET  Ql$-A5$ 

LSET  L1$=A6$:PUT#1, ZIF: RETURN 

REM 

REM  ************************************************** 
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REM 

REM  Subroutine  COMPUTE  #  OF  SYSTEMS  FOR  MAJOR  UNIT  D 

REM 


file  name 

major  unit  number 

un  i  t  numb  e  r 

number  of  these  units 


REM  Inputs:     F$ 

REM  D 

REM  UN(c) 

REM  NI  ( c  ) 

REM 

compsys : 

REM 

FOR  B=0  TO  20:F(B)=0:NEXT  B 

OPEN"!" ,5,F$ 

INPUT#5,B,NS 

FOR  B=l  TO  NS:INPUT#5,U,V 

IF  D<10  AND  U<21  THEN  Z( 10*D+U )-Z( 10»D+U )+l 

IF  U<21  THEN  F(U)-V:Z(U)-Z(U)+1:_ 

TS ( D  ) -TS ( D ) +NI ( U+ 1 0  0 ) * F ( U ) : GOTO  118 

FOR  C-l  TO  X 

IF  U-UN(C)  THEN  TS(D  )-TS(D )+NI ( C )*V: 

TC(D)-TC(D)+NI(C)*V 

NEXT  C 
118: 
NEXT  B 

NI(D+100)=TS(D) 
CL0SE#5 
RETURN 
REM 
REM  ****************  *  *  ******************************** 
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REM 

REM  Subroutine  EXPON.  DISTRIBUTED  WAITING  TIMES  (MTBF) 

REM 

waittime : 

REM 

EX-RES*DAYHOURS 

P=PS:H=PS:Z=1  :REM  set  variables 

REM 

REM   VALUE  INTO  SEQUENCE  (LINKED  LISTING) 

REM 

IF  N-l  THEN  -PE-N:P-N+1: GOTO  endsub 

IF  EX>EX(PE)  THEN  PC( PE )-N: PE=N: P=N+1 : GOTO  endsub 

IF  EX<EX(PS)  THEN  P-PS : PS=N : GOTO  endsub 

119: 

H=P:P=PC(P) 

IF  EX>EX(P)  THEN  119 

PC(H)=N 

endsub : 

NO(N)=N:EX(N)=EX:PC(N)=P 

PC(PE)=N+1 

RETURN 

REM 

R  EM   ************************************************** 


REM 

REM  Subroutine  UNIFORM  DISTRIBUTION 

REM 

REM  required  inputs   :  MU, SIGMA 

REM  available  output  :  RES 

REM 

uniform: 

REM 

LL-MU-SQR(3*SIGMA~2)  •  - 

UL-MU+SQR( 3»SIGMA~2 ) 

RES=(INT(  (LL+(UL-LL)**RND+.5  )*100))/100 

RETURN 

REM 
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REM 

REM  Subroutine  NORMAL  DISTRIBUTION 

REM  Box-Mueller  Method 

REM 

REM  required  inputs   :  MU, SIGMA 

REM  available  output  :  RES 

REM 

normal : 

REM 

U1=RND:U2=RND:PI=3. 1415  92654 

N1=C0S(2*PI*U2)*SQR(-2*L0G(U1 ) ) 

N2=SIN(2*PI*U2)*SQR(-2*L0G(U1 ) ) 

RES-RND 

IF  RES>.5  THEN  RES=MU+N2* SIGMA  ELSE  RES-MU+N1* SIGMA 

RETURN 

REM 

REM   ************************************************************* 


REM 

REM  Subroutine  EXPONENTIAL  DISTRIBUTION 

REM 

REM  required  input    :  MU 

REM  available  output  :  RES 

REM 

expon: 

REM 

RES — MU*LOG(RND) 

RETURN 

REM 

REM  ****************************************************** **'** ** 
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REM 

REM  Subroutine  GAMMA  DISTRIBUTION 

REM 

REM  required  input    :  MU, SIGMA 

REM  available  output  :  RES 

REM 

gamma: 

REM 

DOF=INT( (MU/SIGMA)~2 )+l 

REM  change  DELSD  to  20$, 

REM  if  DOF  too  large  (DELSD  too  small) 

IF  D0F>26  THEN  D0F=26 

RES=1 

FOR  X=  1  TO  DOF 

RES=RES*RND 
NEXT  X 

RES=- ( MU ) »L0G( RES ) 
RETURN 
REM 
REM  ********************************************************** 


REM 

REM  Subroutine  LOGNORMAL  DISTRIBUTION 

REM 

REM  required  input    :  MU, SIGMA 

REM  available  output:  RES 

REM 

lognormal : 

REM 

MUN=MU : S I GMAN-S I GMA 

REM  transform  lognorm  parameters  to  normal 

MU«2*L0G(MUN)-0 . 5*L0G( SIGMAN~2+MUN~2 ) 

SIGMA=SQR(L0G(SIGMAN~2+MUN~2 )-2*L0G(MUN ) ) 

REM  generate  N(MU, SIGMA) 

GOSUB  normal 

REM  generate  lognormal 

RES=EXP(RES) 

RETURN 

REM 

REM  ************************************************** 
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REM 

REM  Subroutine  FIXED  DISTRIBUTION 

REM 

REM  required  input    :  MU 

REM  available  output  :  RES 

REM 

fixed: 

REM 

RES=MU 

RETURN 

REM 

REM   ************************************************** 


REM 

REM  Subroutine  UPDATE  LINKED  LIST 

REM 

upll : 

REM 

P»PC(PS):P1-PS 

IF  EX<EX(P)  THEN  GOTO  subend  ELSE  PS=P 

IF  EX>-EX(PE)  THEN  PC( PE  )-Pl : PE=P1 : P-Pl : GOTO  subend 

121: 

H=P:P=PC(P) 

IF  EX>EX(P)  THEN  GOTO  121 

PC(H)-P1 

subend: 

EX(P1)=EX:PC(P1)=P:C0ST(P1)=C0ST:LAB0R(P1)=LAB0R 

SDO¥N( PI )=D0WN+D1 

RETURN 

REM 

REM  ************************************************** 
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REM 

REM  Subroutine  GENERATE  DOWNTIMES  FOR  SYSTEM  AND  ITEMS 
REM 
dtime: 
REM 

FOR  B-l  TO  3:A-1 
WHILE  A<3 
MU=MTJ(  A  ,  B  )  :  SIGMA=DELSD*MU 

IF  DIST(A,B)-1  THEN  GOSUB  uniform: GOTO  123 
IF  DIST(A,B)=2  THEN 
GOSUB  normal 
IF  RES<0  THEN  RES=0 
GOTO  123 
END  IF 

IF  DIST(A,B)-3  THEN  GOSUB  expon : GOTO  123 
IF  DIST(A,B)-4  THEN  GOSUB  gamma: GOTO  123 
IF  DIST(A,B)=5  THEN  GOSUB  lognormal : GOTO  123 
IF  DIST(A,B)-6  THEN  GOSUB  fixed 
123: 

IF  A-l  THEN  TT(B)-RES  ELSE  TA(B)=RES 
A-A+1:WEND 
D0WN(B)-2»TT(B)+TA(B)    : REM  total  of  time  delays 
NEXT  B 

DOWN-DOWN(l) 
RETURN 
REM 
REM  ************************************************** 
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REM 

REM  Subroutine  ERROR  HANDLER 

REM 

errhandler : 

REM 

IF  F=l  THEN  F=0: LOCATE  10,20:_ 

PRINT  "Iterations  out  of  Range" :_ 

GOSUB  keyp:GOTO  fl 
IF  F=2  THEN  F=0: LOCATE  10,25:_ 

PRINT  "Hours  out  of  Range" :_ 

GOSUB  keyp:GOTO  f2 
IF  F=3  THEN  F=0: LOCATE  10,25:_ 

PRINT  "Days  out  of  Range" :_ 

GOSUB  keyp:GOTO  f3 
IF  F=4  THEN  F=0: LOCATE  10,25 :_ 

PRINT  "Wrong  Input  Format" :_ 

GOSUB  keyp:G0T0  f4 
IF  F-5  THEN  F=0: LOCATE  10,25:_ 

PRINT  "Sample  Size  too  small ":_ 

GOSUB  keyp:G0T0  fl 
IF  ERL-10  THEN  LOCATE  10,20:_ 

PRINT  "No  File  with  this  Filename:  ";NAM$:_ 
GOSUB  keyp: RESUME  f4 
IF  ERL=20  THEN  LOCATE  10,20:_ 

PRINT  "No  File  with  this  Filename:  ";F$:_ 
GOSUB  keyp: RESUME  101 
LOCATE  10,20:PRINT  "File  Error" :_ 
GOSUB  keyp: RESUME 
RETURN 
keyp: 

LOCATE  15, 25: PRINT  "Press  any  Key" 
F$»INPUT$(1) 
RETURN 
REM 
REM  ************************************************** 
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5 .   Source  Code  Program  QBEHAVE 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


program  QBEHAVE 


AUGUST  1987 


This  program  recomputes  the  queueing  behavior  with 
the  numbers  computed  in  the  program  ESTIMATE. 
Given  are  the  four  weeks  planning  data  for  stocks 
and  manpower  requirements.  These  figures  are  taken 
to  establish  the  environment,  in  which  the  systems 
are  failing. 

The  program  accesses  the  data  in  datafiles  "003", 
"005"  and  "006",  computes  the  arrival  times  at  the 
maintemance  facilities,  checks  for  availability  of 
parts  and  manpower  and  processes  the  systems 
through  the  server  queues. 

Output  is  not  only  the  statistics  for  the  specified 
number  of  servers  but  also  a  sensitivity  analysis 
with  server  numbers  varying  and  the  consumption 
behavior  with  the  given  supply  stocks. 
The  results  can  be  used  to  propose  a  structure  for 
the  logistics  organization  needed  to  support  the 
new  systems. 
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REM 

tt  * 

1%                   : 

REM 

*  * 

Ix        : 

REM 

tt  * 

11$       : 

REM 

tt  tt 

IC£       : 

REM 

*  * 

INTx      : 

REM 

*  H 

ITEM£     : 

REM 

*  tt 

ITEMS     : 

REM 

tt  tt 

ITEMNO&   : 

REM 

tt  tt 

J$        : 

REM 

tt  * 

L$        : 

REM 

H  tt 

LAMBDA    : 

REM 

*  tt 

LAMBDAS   : 

REM 

tt  tt 

LEVEL$(x): 

REM 

tt  tt 

LITTLESx*: 

REM 

tt  tt 

LOWSENSx£ : 

REM 

*   * 

LT        : 

REM 

tt  tt 

Mx        : 

REM 

*  tt 

MANPWR(x): 

REM 

tt  * 

MAX  £ 

REM 

K  * 

MIN^(x)   : 

REM 

tt  tt 

MTTF$     : 

REM 

tt  tt 

MTTR      : 

REM 

*  tt 

MULT      : 

REM 

tt  # 

N£        : 

REM 

tt  tt 

NPTR^(x)  : 

REM 

tt  tt 

NSN$      : 

REM 

tt  tt 

0M$       : 

REM 

tt  tt 

OUTx£     : 

REM 

tt  tt 

P%                   : 

REM 

tt  tt 

Px£       : 

REM 

tt  tt 

Px(y)     : 

REM 

tt  tt 

PAS       : 

REM 

tt  tt 

PAGE£     : 

REM 

tt  tt 

PDEPOT(x,y 

REM 

tt  tt 

PDSGS(x,y) 

REM 

tt  tt 

PEx#      : 

REM 

tt  tt 

PERx      : 

REM 

tt  tt 

PORGMN(x,y 

REM 

tt  tt 

PS%       : 

REM 

tt  tt 

PSx£      : 

REM 

tt  tt 

PSYS(x)   : 

REM 

tt  tt 

PTR^(x)   : 

REM 

tt  tt 

Qx&       : 

REM 

tt  tt 

Qlx^      : 

REM 

tt  tt 

QDx£      : 

REM 

tt  tt 

R         : 

REM 

tt  tt 

R^        : 

REM 

tt  tt 

REPLCLVL^: 

REM 

tt  tt 

RLS       : 

REM 

tt  tt 

RL?6       : 

REM 
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reorder** 
anal . 


auxiliary  variable 

arrival  time  at  level  x 

string  variable  file  "003" 

counting  variable 

arrival  time  at  level  x 

dataset  number  for  itemfiles 

stock  number 

number  of  different  items 

auxiliary  string  variable 

string  variable  file  "003" 

failure  rate  of  item 

string  variable  file  "003" 

maintenance  level 

minimum  stock  level  before 

lower  limit  of  sensitivity 

auxiliary  variable 

repair. time  level  x 

available  servers  at  level  x 

max.  number  of  customers  in  the 

minimum  stock  level  for  item  x 

string  variable  file  "003" 

mean  time  to  repair 

scaling  factor  if  >  500  systems 

counting  variable 

pointer  to  next  data  set  for  system* 

string  variable  file  "003" 

filename  for  org  mn  data 

Q  outtime 

auxiliary  variable  ** 

pointer  in  linked  listing  ** 

stores  y  items  with  x  informations** 

filename  for  item  data  ** 

page  counter  for  output  ** 

):  start- ,endptr  in  Q  server  y  Depot* 
:  start- ,endptr  in  Q  server  y  DS/GS 

ptr  for  last  element 

duration  for  simulation 
):  start- , endptr  in  Q  server  y  OrgMn* 

auxiliary  variable 

ptr  for  startelement 

pointer  for  system  in  repair 

pointer  to  data  set  in  "003" 

number  of  customers  in  the  system 

number  of  waiting  customers 

cumulative  waiting  times 

stockout  risk  factor 

current  replacement  level 

replacement  level  out  of  data  file** 

string  variable  file  "003" 

repair  level 

repair  time 
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REM 

tt  tt 

RT$ 

REM 

*  * 

S£ 

REM 

tt  tt 

S$ 

REM 

tt  * 

Sx£ 

REM 

*  * 

Sl$ 

REM 

M  * 

SAMPS I ZE^ 

REM 

*  * 

SPTR&(x) 

REM 

*  * 

STOCK(x) 

REM 

*  tt 

SYS 

REM 

tt  tt 

SYS(n) 

REM 

tt  tt 

SYSDOWN(x 

REM 

*  * 

SYSFILES 

REM 

*  tt 

SYSNUM& 

REM 

*  * 

Tx*(y) 

REM 

tt  tt 

TA 

REM 

tt  tt 

TAx 

REM 

tt  tt 

TA$ 

REM 

tt  H 

TT 

REM 

tt  * 

TTx 

REM 

tt  * 

WAITTIME 

REM 

tt  tt 

WAITTTLx 

REM 

tt  tt 

WEEK 

REM 

*  * 

WEEKDAYS 

REM 

tt  * 

X 

REM 

*  * 

X£ 

REM 

*  tt 

Yt> 

REM 

tt  tt 

Z 

REM 

************* 

string  variable  file  "003" 
auxiliary  variable 
system  stock  number 
number  of  servers  level  x 
string  variable  file  "003" 
number  of  simulation  iterations 
pointer  for  next  systemepair 
number  of  items  stocked 
system  number 
system  number  array 
):  total  downtime 

name  of  system  data  file 

number  of  systems  in  major  unit 

spare  part  information 

admin  delay  time 

admin  delay  time 

string,  variable  file  "003" 

transp  delay  time 

transp  delay  time 

waiting  time  for  item  x 

total  waiting  time  level  x 

total  workhours  per  week 

days  per  week,  system  is  operatnl 

auxiliary  variable 

auxiliary  variable 

auxiliary  variable 

auxiliary  variable 
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######################### 

#  START  OF  MAIN  PROGRAM  # 
######################### 

A(8,1000)  ,ARRTIME(5  00) ,B(11,1000) 
BUSY2(50),BUSY3(50),BUSY4(50) ,C(11, 1000) 
CURR^(IOOO) ,FTIME(500) , ITEM$(1000) , ITEM%(1000) 
LITTLEST (1000) ,MANPWR#(3) ,MIN&(1000) ,NPTR#(5  00) 
PI (6000)  , P2#(6000) ,  P3%(6000) 

PDEPOT(2,50) ,PDSGS(2,50) , P0RGMN( 2 , 50 ) ,PTR#(5  00) 
SPTR%(500 ) ,STOCK£(1000 ) , SYSD0WN( 500 ) 
T1(500),T2%(500) 


REM 

REM 

REM 

REM 

REM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

CLS 

CLS:OPEN  "i",6,"006" 

INPUT#6 , D$ ( 1 ) , WEEKDAYS , D$ ( 2 ) 

INPUT#6,D$(1) ,MULT 

INPUT#6,D$(1) 

REM 

REM  read  manpower  data  for  the 

REM 

FOR  X#-l  TO  3 

I NPUT#6 , A , MANPWR£ ( X# ) 
NEXT  X% 
INPUT#6,D$(1) 


A(1,N%) 

■i 

QUEUE- I NT I ME 

\ 

A(2,N%) 

= 

QUEUE-OUTTIME 

A(3,N#) 

= 

POINTER  FOR  003 

\ 

ORG 

A(4.N£) 

= 

SPARE  PART  1 

/ 

MN 

A(5,N#) 

= 

SPARE  PART  2 

A(6,N£) 

= 

SPARE  PART  3 

A(7,N%) 

- 

SYSTEM  NUMBER 

/ 

B(1,N*) 

= 

FAILTIME 

\ 

B  (  2  ,  N#  ) 

- 

ARRIVALTIME 

B ( 3 , N* ) 

= 

Q-INTIME 

B  (  4  ,  N#  ) 

= 

Q-OUTTIME 

B ( 5 , N# ) 

- 

POINTER 

B  (  6  ,  N&  ) 

= 

PART  1 

\ 

DS/GS 

B  (  7  ,  N£  ) 

= 

PART  2 

/ 

DEPOT  [C(X,Y)] 

B  (  8  ,  N&  ) 

- 

PART  3 

B ( 9 , N#  ) 

= 

REPAIRTIME 

B ( 1 0 , N& ; 

>- 

ADMIN  DELAY 

B ( 1 1 , N£ ; 

1  = 

TRANSP  DELAY 

/ 

DAYHOURS 


three  maint.  levels 
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REM 

REM  read  items  to  stock  and  the  number  of  these 

REM 

X*-l 

INPUT#6, J$,  ITEMS  (X*)  ,D$(2)  ,  STOCKS  (X*)  ,  LAMBDAS 

LAMBDA- 1 / VAL ( LAMBDAS ) 

REM 

REM  compute  restock  level  for  parts 

REM 

IF  VAL(J$)=9  THEN  GOSUB  polsson 

CURR#(X%)=STOCK£(X£) 

MIN£(X£)=STOCK%(X£) 

WHILE  NOT  E0F(6) 

INCR  X# 

INPUT#6, J$, ITEMS (X#) ,D$(2) , STOCKS (X#) , LAMBDAS 

LAMBDA= 1 / VAL ( LAMBDAS ) 

IF  VAL(J$)=9  THEN  GOSUB . poisson 

CURR#(X£)=STOCK£(X£) 

MIN£  (  X%  )  -STOCKS  ( X£  ) 
WEND 
CL0SE#6 

ITEMNO£=X£   :REM  total  number  of  different  spares 
REM 

REM  determine  program  mode 
REM 

GOSUB  choice 
REM 

REM  enter  input  variables  SENSLIM,  AST  and  R 
REM 

GOSUB  varin 
IF  CHOICE£=0  THEN 

S2£-MANPWR£(1) 

S3*-MANPWR*(2) 

S4#-MANPWR£(3) 

GOTO  prepdat 
END  IF 
REM 

REM  set  sensitivity  bounds  for  server  numbers 
REM 

L0WSENS2£=INT( ( 1 -SENSLIM ) *MANPWR#( 1 ) ) 
HISENS2£=INT( ( 1+SENSLIM ) *MANPWR$( 1 )+0 . 5 ) 
L0WSENS3£=INT( ( 1 -SENSLIM ) »MANPWR#( 2 ) ) 
HISENS3&=INT( ( 1+SENSLIM ) »MANPWR#( 2 )+0 . 5 ) 
L0WSENS4£=INT( ( 1-SENSLIM ) *MANPWR&( 3 ) ) 
HISENS4£=INT( ( 1+SENSLIM ) *MANPWR$( 3 )+0 . 5 ) 
IF  L0WSENS2£<1  THEN  L0WSENS2£=1 
IF  L0WSENS3£<1  THEN  L0WSENS3#=1 
IF  L0WSENS4£<1  THEN  L0WSENS4£=1 
IF  HISENS2£=MANPWR£(1 )  THEN  INCR  HISENS2& 
IF  HISENS3£=MANPWR%(2)  THEN  INCR  HISENS3& 
IF  HISENS4£=MANPWR£(3)  THEN  INCR  HISENS4£ 
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prepdat : 

REM 

REM  prepare  data  file 

REM 

OPEN  "R" ,3, "003" ,80 

FIELD#3,4  AS  Sl$,3  AS  RL$  ,  3  AS  11$, 16  AS  NSN$,_ 

11  AS  RT$,11  AS  TA$,11  AS  TT$,11  AS  MTTF$,10  AS  L$ 
LPRINT  "  Program  Start  Time  Is  :  "; DATES , TIMES 

PAGE£=1 
REM 

REM  loops  for  sensitivity  analysis 
REM 

IF  CHOICE£=0  THEN  sip 
FOR  S4#=L0WSENS4£  TO  HISENS4£ 
FOR  S3£=L0WSENS3£  TO  HISENS3# 
FOR  S2#=L0WSENS2%  TO  HISENS2* 
sip: 
REM 

REM  read  scaling  parameters  and  failure  times 
REM 

OPEN  "I",  5,  "005" 
I NPUT#  5 , A$ , S YSNUM& 
INPUT#5,A$,SAMPSIZE£ 
FOR  X£=l  TO  SYSNUM# 

INPUT#5 , A , FTIME ( X# ) , B 
NEXT  X% 
CL0SE#5 
REM 

REM  reset  pointers  and  variables 
REM 

FOR  X#-l  TO  2:F0R  Y#-l  TO  50 
BUSY2(Y£)=0 
BUSY3(Y£)=0 
BUSY4(Y£)=0 
PORGMN(X#,Y#)=0 
PDSGS(X#,Y#)=0 
PDEPOT(X£,Y%)=0 
NEXT  Y£:NEXT  X# 
FOR  X#=l  TO  SYSNUM^ 
ARRTIME(X#)=0 
PTR&(X#)=0 
NPTR£(X#)=0 
SPTR#(X#)=0 
SYSDOWN(X#.)-0 
NEXT  X# 

FOR  N#-l  TO  SAMPSIZE^ 
FOR  X#-l  TO  8 
A(X£,N£)=0 
B(X£,X£)=0 
C(X£,N£)=0 
NEXT  X£ 
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FOR  X£=9  TO  11 
B(X£,N£)=0 
C(X#,N%)=0 
NEXT  X£ 
NEXT  N# 

MAX 2#-0: MAX 3#-0: MAX 4£=0 
QD2£=0  :  QD3£=0  :  QD4&=0 
PER2=0 : PER3=0 : PER4=0 
WAITTTL2=0 :WAITTTL3=0 :WAITTTL4=0 
LPRINT 
LPRINT  "         Queuing  Behavior  for  Varying" ;_ 

"  Numbers  of  Servers  ";:_ 
LPRINT  USING  "  PAGE  ##"  ;  PAGE# :  INCR  PAGE£ 

», ,-, — -, —  ===: — .«., —  »  :  LPRINT 

GOSUB  sernum 
REM 

REM  read  the  arrival  times  at  OrgMn 
REM 

PSl£-l:PE£-l 
IC%-1:F#-1:RL%=1 
WHILE  RL£>0 
GET#3,IC£ 
GOSUB  getdata 
IF  156-9  THEN  F£=l 
INCR  IC56 
WEND 
FOR  SYS^-1  TO  SYSNUM& 

IF  ARRTIME(SYS£)=0  THEN  ARRTIME( SYS# )=999999 
NEXT  SYS£ 
REM 

REM  sort  data  on  level  OrgMn 
REM 

PS£-1:PE£=1 

FOR  X£=l  TO  SYSNUM& 

GOSUB  orgsort 
NEXT  X£:PS2£-1 
REM 

REM  repair  items  on  level  Org  Mn 
REM 

LOCATE  20,35: PRINT  "Level  Org  Mn" 
Q2£=0 : N*-l : SYS%=PS& 

WHILE  N£<-SAMPSIZE£  AND  ARRTIME( SYS& ) <999999 
LOCATE  24,  31:  PRINT  "Service  Number   "  ;N£; 
A(3,N£}-PTR£(SYS£) 
A(7,N£)=SYS£ 
INCR  Q2& 
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REM 

REM  acquire  data  for  repair 

REM 

IC£=PTR%(SYS#):M2=0 

GET#3,IC# 

GOSUB  gdata 

INCR  IC# 

WHILE  VAL(I1$)<9 
GET#3,IC£ 
GOSUB  gdata 
INCR  IC# 

WEND 

INT2=ARRTIME(SYS& ) : I2-INT2 

FTIME2=FTIME( SYS# ) 
server2 : 


A=10000000:Q12#=0 

FOR  X£-l  TO  S2#  :REM  check,  if  server  available 

IF  P0RGMN(2,X#)<-INT2  THEN 
P0RGMN(1,X#)-INT2 
P0RGMN(2,X£)«INT2+M2 
DECR  Q2#;G0T0  iserve2 
ELSEIF  P0RGMN(2,X#)<A  THEN 

A=P0RGMN(2,X#) 
END  IF 
NEXT  X£ 

WAITTIME-A-INT2 
WAITTTL2-WAITTTL2+WAITTIME 
INT2=A 

P#=SPTR£(SYS£):INCR  QD2#:INCR  Ql'2# 
REM 

REM  check  other  arrival  times  for  queue  size 
REM 

WHILE  P#<=SAMPSIZE#  AND  ARRTIME( P£ ) <999999 
IF  ARRTIME(P£)<(INT2+M2)  THEN_ 

INCR  Q12#:P#=SPTR#(P#)  ELSE  maxq2 
WEND 


maxq2 : 


iserve2 


IF  Q12£>MAX2#  THEN  MAX2$=Q12#  :REM  max  Q  length 
GOTO  server2 


IF  PER2<P0RGMN(2,X#)  THEN  PER2=P0RGMN(  2  ,X%> ) 
BUSY2 ( X# )-BUSY2 ( X# ) +M2 

A(l ,N£)-P0RGMN(1 ,X#):A(2,N#)-P0RGMN(2,X£) 
SYSDOWN( SYS£ )-SYSDOWN( SYS£ )+_ 

P0RGMN(2,X%)+TA2/2+TT2-FTIME2 
IF  B(6,N£)-0  THEN  GOTO  fol 
B(l  ,N#)-A(2,N#) 
FTIME(SYS£)-A(2,N£)+TA2/2+TT2+MTTF 
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fol: 

REM 

REM  check,  if  another  failure  for  this  system 

REM 

IF  N£=SAMPSIZE£  THEN  p3 
IF  NPTR£(SYS£)>0  THEN 

IC£=NPTR£( SYS£ ) : PTR&( SYS£ )=0 :NPTR£( SYS# )=0 

FS6-1 

WHILE  VAL(RL$)>0 

IF  NPTR#(SYS£)>0  THEN  n2 
GET#3,IC£ 

IF  VAL(S1$)=SYS£  THEN  GOSUB  getdata 
IF  VAL(Il$)-9  THEN  F#=l 
INCR  IC* 
WEND 
n2: 

PS£=SPTR£( SYS£ ) : X£=SYS£ : GOSUB  orgsort 
ELSE 

PS£=SPTR£(SYS£):GOTO  nl 
END  IF 
nl: 

SYS£=PS£:INCR  N# 
WEND 
p3: 
REM 

REM  sort  data  on  level  DS/GS 
REM 

FOR  N#-l  TO  SAMPSIZE& 
IF  B(1,N#)>0  THEN_ 

B (  2 , N*  )-B ( 1 , M  )+B ( 1 0  , NS6  )  / 2+B ( 1 1 , N*  ) 
ELSE  B(2,N£)-999999 
NEXT  N£ 
PS£-1:PE*-1 
FOR  X#-l  TO  SAMPSIZE& 

GOSUB  dssort 
NEXT  X£:PS3£=PS£ 
REM 

REM  repair  items  on  level  DS/GS 
REM 

LOCATE  20, 35: PRINT  "Level  DS/GS  " 
N#=PS£ : Q3£=0 : SYS£=1 
LOCATE  24,31 

PRINT  "  "; 

WHILE  N£<=SAMPSIZE£  AND  B(1,N%)>0 
INCR  Q3£ 

INT3=B( 2 ,N£  )  :  I3  =  INT3 
M3-B(9,N#):TA3-B(10,N#):TT3-B(11,N*) 
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server3 : 

C=10000000:Q13&=0 

FOR  Y&-1  TO  S3#  : REM  check,  if  server  available 

IF  PDSGS(2,Y#)<=INT3  THEN 
PDSGS(1,Y#)=INT3 
PDSGS( 2 , Y£ )=INT3+M3 
DECR  Q3#:G0T0  iserve3 
ELSEIF  PDSGS(2,Y#)<C  THEN 

C=PDSGS(2,Y£) 
END  IF 
NEXT  Y£ 

WAITTIME=C-INT3 
WAITTTL3-WAITTTL3+WAITTIME 
INT3=C 

P£=B(5,N#):INCR  QD3#:INCR  Q13# 
REM 

REM  check  other  arrival  times  for  queue  size 
REM 

WHILE  P£<=SAMPSIZE#  AND  B( 2 , P£  )  <999999 
IF  B(2,P£)<(INT3+M3)  THEN_ 

INCR  Q13#:P#=B(5,P#)  ELSE  maxq3 
WEND 


maxq3: 


IF  Q13£>MAX3£  THEN  MAX3#=Q13#  :REM  max  Q  length 
GOTO  server3 


iserve3 


IF  PER3<PDSGS(2,Y#)  THEN  PER3=PDSGS( 2 , Y% ) 
BUSY3 ( Y# )=BUSY3 ( Y# )+M3 

B( 3 ,N#  )=PDSGS( 1  ,  Y% )  :B(  4  , N&  )-PDSGS(  2  ,  Y<t> ) 
IF    C(6,N£)>0    THEN    C(  1 , N# )-B( 4  ,N#  ) 
N#=B(5,N#):INCR    SYS# 
WEND 


REM 

REM  sort  data  on  level  DEPOT 

REM 

FOR  N#=l  TO  SAMPSIZE% 
IF  C(1,N#)>0  THEN_ 

C (  2  ,N#  )-C ( 1  ,N#  )+C ( 10  ,N# ) / 2+C(  11  ,N# ) 
ELSE  C(2,N%)-999999 
NEXT  N£ 
PS£-1:PE#-1 
FOR  X£-l  TO  SAMPSIZE& 

GOSUB  dpsort 
NEXT  X£:PS4#=PS# 
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REM 

REM  repair  items  on  level  DEPOT 

REM 

LOCATE  20, 35: PRINT  "Level  DEPOT  " 
N£-PS£ : Q4£=0 : SYS£=1 

WHILE  N£<=SAMPSIZE£  AND  C(1,N#)>0 
INCR  Q4£ 

INT4=C ( 2 , N# ) : I4=INT4 

M4=C(9,N#):TA4=C(10,N£):TT4=C(11,N#) 
server4 : 

E=10000000:Q14£=0 

FOR  Z56-1  TO  S4$:REM  check,  if  server  available 
IF  PDEP0T(2,Z#)<=INT4  THEN 
PDEPOT(l,Z*)-INT4 
PDEP0T( 2 , Z£ )=INT4+M4 
DECR  Q4£:G0T0  iserve4 
ELSEIF  PDEPOT(2,Z£)<E  THEN 

E-PDEP0T(2,Z£) 
END  IF 
NEXT  Z£ 

WAITTIME=E-INT4 
WAITTTL4-WAITTTL4+WAITTIME 
INT4-E 

P£=C(5,N£):INCR  QD4£:INCR  Q14& 
REM 

REM  check  other  arrival  times  for  queue  size 
REM 

WHILE  P£<-SAMPSIZE£  AND  C( 2 , P#  )< 999999 
IF  C(2,P#)<(INT4+M4 )  THEN_ 

INCR  Q14£:P£=C(5,P%)  ELSE  maxq4 
WEND 


maxq4 


IF  Q14£>MAX4£  THEN  MAX4#=Q14£  :REM  max  Q  length 
GOTO  server4 


iserve4 : 


rt4 


IF  PER4<PDEP0T(2 ,Z%)    THEN  PER4=PDEPOT( 2 , Z%  ) 
BUSY4 ( Z% )=BUSY4 ( Z% )+M4 

C(3,N£)=PDEP0T( 1 ,Z%) :C(4,N#)=PDEP0T(2,Z£) 
N£=C(5 ,N£):INCR  SYS& 
WEND 

WEEK=WEEKDAYS*DAYHOURS 

PERNUM=PER2 / ( 4  *WEEK ) 

0$-"  " 

LPRINT:LPRINT  o$; "LEVEL  ORG  MN  : " : LPRINT 

LPRINT  "        no  of  customers     -  ";:_ 

LPRINT  USING  "######"; SYSNUM& 
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_   If 


LPRINT  "         no  of  failures 
LPRINT  USING  "######"; SAMPSIZE& 
LPRINT  "         no  of  servers 
LPRINT  USING  "######"; S2# 
LPRINT  "         no  of  delays 
LPRINT  USING  "######"; QD2# 
LPRINT  "         max  queue  length 
LPRINT  USING  "######";_ 

MAX2%; :LPRINT  "  customers" 
LPRINT  "         total  waiting  time  =  " ; :_ 
LPRINT  USING  "########.##";_ 

WAITTTL2; : LPRINT  "  hours" : LPRINT 
LPRINT  0$; 
LPRINT  "average   waiting  time  per  ";_ 

"  waiting  customer  =  " ; 
IF  QD2%=0  THEN 

LPRINT  "      O.OQ  hours" 
ELSE 

LPRINT  using  "######.##  hours" ;WAITTTL2/QD2£ 
END  IF 
LPRINT  0$; 
LPRINT  "expected  waiting  time  per";_ 

"  entering  customer  -  ";: 
LPRINT  using  "######.##  hours" ; WAITTTL2/SAMPSIZE# 


LPRINT 

FOR  X=l  TO  S2£ 

LPRINT  0$; 

LPRINT  "percentage  server  " ; 

LPRINT  USING  "##  is  busy  -  ## .  #  #"; 
x , BUSY2 ( X  )  / PER2  * 1 0 0 
NEXT  X 

LPRINT: LPRINT  0$; "LEVEL  DS/GS  :":LPRINT 
LPRINT  "  no  of  servers  -  "; 
LPRINT  USING  "######"  ;  S3# 


USING 
it 


LPRINT 

LPRINT 

LPRINT 

LPRINT  using 

LPRINT  " 

LPRINT 

LPRINT: 

LPRINT 

IF  QD3£ 


_  ii 


using 
LPRINT 
"average 
-0  THEN 


no    of   delays 
»######»  ;QD3S6 

max  queue  length 
"######  customers" ;MAX3£ 

total  waiting  time  =  "  ;  :_ 
"######## . ##   hours " ; WAITTTL3 
0$; 

waiting  time  per   waiting  " 


LPRINT  "  customer  = 
ELSE 

LPRINT  using  "customer 
WAITTTL3/QD3& 
END  IF 


0.00  hours" 


######.##  hours"; 
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LPRINT  0$; 

LPRINT  "expected  waiting  time  per"; 

LPRINT  "  entering  customer  =  "; 

LPRINT  using  "######.##  hours" ;WAITTTL3/SAMPSIZE£ 

LPRINT 

FOR  X-l  TO  S3£ 

LPRINT  0$; 

IF  PER3=0  THEN_ 

LPRINT  "percentage  server  "  ;  :_ 
LPRINT  USING  "##  is  busy  -   0    £";X_ 
ELSE_ 

LPRINT  "percentage  server  ";:_ 
LPRINT  USING  "##  is  busy  =  ##.#  #"; 
x,BUSY3(X)/PER3*100 
NEXT  X 

LPRINT: LPRINT  0$; "LEVEL  DEPOT  :":LPRINT 
LPRINT  "         no  of  servers       =  "; 
LPRINT  USING  "######" ;S4£ 
LPRINT  "         no  of  delays        =  "; 
LPRINT  USING  "######"; QD4£ 
LPRINT  "         max  queue  length    =  "; 
LPRINT  using  "######  customers" ;MAX4£ 
LPRINT  "         total  waiting  time  =  "; 
LPRINT  USING  "########.##   hours " ;WAITTTL4 
LPRINT: LPRINT  0$; 
LPRINT  "average   waiting  time  per  waiting" ;_ 

"   customer  =  " ; 
IF  QD4£-0  THEN 

LPRINT  "       0.0  0  hours" 
ELSE 

LPRINT  USING  "######.##  hour s " ; WAITTTL4 / QD4% 
END  IF 


LPRINT  0$; 

LPRINT  "expected  waiting  time  per  entering" ;_ 

"  customer  =  " ; 
LPRINT  USING  "######.##  hour s " ; WAITTTL4 /SAMPSIZE^ 

LPRINT 

FOR  X-l  TO  S4£ 
LPRINT  0$; 
IF  PER4=0  THEN_ 

LPRINT  USING  "percentage  server  ##";X;:_ 
LPRINT  "  is  busy  =   0.0  £"_ 
ELSE_ 

LPRINT  USING  "percentage  server  ##";X;:_ 
LPRINT  USING  "  is  busy  =  ## . #  96" ;_ 
BUSY4(X)/PER4*100 
NEXT  X 
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LPRINT: :LPRINT  0$; 

LPRINT  "Total  elapsed  time  for  "; 

LPRINT  USING  "#####  failures  =  ###.##  weeks"; 

SAMPSIZE%,PER2 /WEEK: LPRINT 
LPRINT  0$; 

LPRINT"Total  number  of  4  week  periods  for  ";: 
LPRINT  USING  "####  failures "; SAMPSIZE& ; 
LPRINT  USING  "  -  ######.#"; PERNUM 
LPRINT  CHR$(12) 
REM 

REM  order  spare  part  consumption 
REM 

CLS: LOCATE  15,22 

PRINT  "Ordering  of  Part  Consumption  Times" 
FOR  X#-l  TO  ITEMN0# 
CURR#(X#)=0 
MIN£(X£)=0 
NEXT  X# 
FOR  X£=l  TO  500 

T1(X£)-0:T2£(X£)=0 
NEXT  X# 
C0UNT£=0 

FOR  N£-l  TO  SAMPSIZE& 
IF  A(4,N&)=0  THEN  nds 
FF — MULT 

Dl-A(lfN£):A-A(4,N#) 

GOSUB  linkparts 

IF  ITEM£(A(4,N#))=9  THEN  GOTO  nextfail 

IF  A(5,N£)-0  THEN  Z=A( 4 ,N# ) : GOTO  nextds 

FF — MULT 

Dl-A( 1 ,N£ ) : A-A( 5 ,N# ) : GOSUB  1 inkparts 

FF-MULT 

D1=A(2,N#)+A(8,N£)/2:A=A(4,N#) 

GOSUB  linkparts 

IF  ITEM#(A(5,N£) )-9  THEN  GOTO  nextfail 

IF  A(6,N%)=0  THEN  Z-A( 5 ,N# ) : GOTO  nextds 

FF--MULT 

D1-A(1,N#):A-A(6,N#):G0SUB  linkparts 

FF=MULT 

D1-A(2,N£)+A(8,N£)/2:A=A(5,N#) 

GOSUB  linkparts 

IF  ITEM£(A(6,N£) )-9  THEN  GOTO  nextfail 

Z-A(6,N#) 


nextds 


nds 


TA-B ( 1 0 , N£ ) : TT=B ( 11 , N* ) 

FF-MULT 

Dl-B(4 ,N&)+TA/2+TT:A=Z: GOSUB  linkparts 

TA-B ( 1 0 , N# ) : TT-B ( 1 1 , N$ ) 
IF  B(6,N£)=0  THEN  ndp 
FF — MULT 
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nextdp : 


ndp : 


D1-B(3,N#) :A=B(6,N&) 

GOSUB  linkparts 

IF  ITEM£(B(6,N#) )-9  THEN  GOTO  nextfail 

IF  B(7,N£)=0  THEN  Z-B( 6 ,N% ) : GOTO  nextdp 

FF — MULT 

Dl-B ( 3 , N# ) : A-B ( 7 , N# ) : GOSUB  1 inkpar t  s 

FF-MULT 

Dl-B (4 ,N#)+TA/2:A=B(6,N#) 

GOSUB  linkparts 

IF  ITEM£(B(7,N£) )-9  THEN  GOTO  nextfail 

IF  B(8,N#)  =  0  THEN  Z-B( 7 ,N#  ) : GOTO  nextdp 

FF — MULT 

D1=B(3,N£):A-B(8,N&):G0SUB  linkparts 

FF-MULT 

Dl-B ( 4 , N£ )+TA/ 2 : A-B ( 7 ,Ntf ) : GOSUB  1 inkpar ts 

IF  ITEM#(B(8,N%) )-9  THEN  GOTO  nextfail 

Z-B(8,N£) 

TA-C(10,N#):TT-C(11 ,N#) 
FF-MULT 

Dl-C(4,N#)+TA/2+TT:A=Z 
GOSUB  linkparts 


TA-C ( 1 0 , N# ) : TT-C ( 1 1 , N£ ) 

IF  C(6,N#)-0  THEN  nextfail 

FF — MULT 

D1-C(3,N#):A=C(6,N£) 

GOSUB  linkparts 

IF  ITEM£(C(6,N£) )-9  THEN  GOTO  nextfail 

IF  C(7,N£)=0  THEN  nextfail 

FF — MULT 

D1-C(3,N#):A-C(7,N#) : GOSUB  linkparts 

FF-MULT 

D1=C(4,N£)+TA/2:A-C(6,N£) 

GOSUB  linkparts 

IF  ITEM£(C(7,N£) )=9  THEN  GOTO  nextfail 

IF  C(8,N#)-0  THEN  nextfail 

FF — MULT 

D1-C(3,N#) :A-C(8,N#) : GOSUB  linkparts 

FF-MULT 

D1-C(4,N%)+TA/2:A-C(7,N$) 

GOSUB  linkparts 
nextfail : 

NEXT  N£ 
REM 

REM  compute  stock  levels 
REM 

FOR  X#-l  TO  ITEMNO& 

CURR£(X£ ) -STOCKS ( X% ) 
NEXT  X% 
OUTl£=0:OUT2£=l 
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sll 


si  2 


FOR  X*=l  TO  COUNTS 

IF  T1(OUT2*)-0  THEN  sl2 
IF  0UT2*>0UT1*  THEN  sl2 
IF  T1(0UT2*)<-P1(X*)  THEN 

CURR*=CURR*(T2*(OUT2*)) 

CURR*=CURR*+T3*( 0UT2* ) 

CURR*(T2*(0UT2*) )=CURR* 

INCR  OUT2* 

GOTO  sll 
END  IF 

CURR*(P2*(X*) )=CURR*(P2*(X*) )+P3*(X*) 
IF  CURR*(P2*(X*)  )=LITTLES*(P2*(X*)  )  THEN 
IF  ITEM*(P2*(X*) )=9  THEN 

INCR  OUT1* 

T1(0UT1*)-P1(X*)+AST 

T2*( OUT1*  )-P2*(  X*  ) 

T3*(0UT1*)-ST0CK*(P2*(X*)  )-LITTLES*(  P2*(X*  )  ) 


END  IF 
END  IF 

IF  CURR*(P2*(X*) )<MIN*(P2*(X*) )  THEN_ 
MIN*(P2*(X*)  )=CURR*(P2*(X*) ) 
NEXT  X* 

FOR  X*=l  TO  ITEMNO* 
IF  MIN*(X*)<0  THEN_ 

IF  ITEM*(X*)<9  THEN  MIN*(X*)=0 
NEXT  X* 
LPRINT  0$;_ 

"Summary  of  Item  Consumption  and  Stock  Level 
LPRINT  USING  "  PAGE  ##"; PAGE* : INCR  PAGE* 
LPRINT  0$; 


s"; 


»"==—. 


LPRINT: LPRINT 
LPRINT  0$;0$;_ 

"STOCK  NO.    INITIAL  STOCK" ;_ 
".   FINAL  STOCK    MIN.  STOCK" 
LPRINT  0$;"    "; 


LPRINT 

FOR  N*-l  TO  ITEMNO* 

LPRINT  USING  " 

LPRINT 


####   ";N*; 
LPRINT  USING" 


ITEMS (N*); 
STOCK* (N*); 
LPRINT  USING- "  #### 

CURR*(N*) ,MIN*(N*) 
MIN*(N*)=STOCK*(N*) 
NEXT  N* 
CLS:LPRINT  CHR$(12) 


####";_ 
####"; 
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REM 

REM  close  sensitivity  loops 

REM 

IF  CHOICE£=0  THEN  pend 

IF  BUSY2(1 )/PER2*100<10  THEN  EXIT  FOR 
NEXT  S2£ 

IF  BUSY3(1 )/PER3*100<10  THEN  EXIT  FOR 
NEXT  S3& 

IF  BUSY4(1)/PER4*100<10  THEN  EXIT  FOR 
NEXT  S4£ 
pend : 

LPRINT:LPRINT 

LPRINT  "  Program  End  Time  is  :  ";TIME$ 

LOCATE  20,30:PRINT  "  *******************  «» 
LOCATE  21, 30: PRINT  "**   Program  End  **" 

LOCATE  22,30:PRINT  ********************* 

LPRINT  CHR$(12) 

END 

REM  ######################### 

REM  #   END  OF  MAIN  PROGRAM   # 

REM  ######################### 

REM 

REM  *************************************************** 


REM 

REM  Subroutine  CHOOSE  PROGRAM  MODE 

REM 

choice : 

REM 

CLS: LOCATE  7,25 

PRINT  "**************************" 

LOCATE  8,25 

PRINT  "**    Program  Mode  Menu   »*" 

LOCATE  9,25 

P  R I  NT  ***************************** 

LOCATE  13,16 

PRINT  "(  0  )  ...  Check  Queuing  Behavior  without" 

LOCATE  14,16 

PRINT  "  Sensitivity  Analysis  (faster)" 

LOCATE  16,16 

PRINT  "(  1  )  ...  Check  Queuing  Behavior  with" 

LOCATE  17,16 

PRINT  "  Sensitivity  Analysis" 

LOCATE  19,12 

PRINT  "   ===  =  =  ===== — .. — .. — ; -: =  =  =  =  ==== 

LOCATE  22,29 

PRINT  "Default  Value  is  0." 
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itr: 

LOCATE  23,18 

PRINT  "To  accept  press  ENTER,"; 

INPUT  "  else  enter  value   :  ",CHOICE% 

IF  CHOICE£<0  OR  CH0ICE%>1  THEN 

LOCATE  23,61 

PRINT  " 

GOTO  itr 
END  IF 
RETURN 
REM 
REM  *************************************************** 


REM 

REM  Subroutine  READ  INITIAL  DATA 

REM 

getdata: 

REM 

SYS£=VAL(S1$) 

RL£-VAL(RL$) 

I£»VAL(I1$) 

TA=VAL(TA$) 

TT-VAL(TT$) 

IF  RL£-2  THEN 

IF  PTR£(SYS£)  =  0  THEN  PTR#(  SYS&  )-ICS6  :  F#=0  :_ 
ARRTIME(SYS#)=FTIME(SYS#)+TA/2+TT 

IF  F£-l  AND  NPTR#(SYS#)=0  THEN_ 
IF  IC£>PTR#(SYS#)  THEN  NPTR#( SYS#  )  =  IC£ 
END  IF 
IF  RL£-3  THEN_ 

IF  ARRTIME(SYS£)=0  THEN  B(  1  ,N&  )-FTIME(  SYS#  ) 
IF  RL£=4  THEN_ 

IF  ARRTIME(SYS%)=0  THEN  C ( 1 ,N# )-FTIME( SYS£ ) 
RETURN 
REM 
REM  *************************************************** 
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REM 

REM  Subroutine  SORT  ARRIVAL  TIMES  ON  LEVEL  ORG  MN 

REM 

orgsort : 

REM 

IF  ARRTIME(X£)>=ARRTIME(PE£)  THEN 

SPTR£( PE£  )-X* : SPTR#(X# )-ICg : PE^=X& : GOTO  endsort 
IF  ARRTIME(X£)<ARRTIME(PS#)  THEN_ 

SPTR£(X£)=PS£:PS&=X%:INCR  SPTR#( PE& ) : GOTO  endsort 
P£=PS£ 
iorg: 

H£=P£ : P£=SPTR£ ( P£ ) 

IF  ARRTIME(X£)>ARRTIME(P£)  THEN  iorg 
SPTR£ ( X£  )  =P£ :  SPTR# ( H£  )  -X# 
endsort : 
RETURN 
REM 
REM  *************************************************** 


REM 

REM  Subroutine  SORT  ARRIVAL  TIMES  ON  LEVEL  DS/GS 

REM 

dssort : 

REM 

IF  B(2,X£)>-B(2,PE£)  THEN 

B(5,PE£)=X£:B(5  ,X#  )-Ic£:  PE£=X$ :  GOTO  enddssort 
IF  B(2,X£)<B(2,PS£)  THEN_ 

B(5,X#)-PS#:PS*-X#:INCR  B(  5  ,  PE£  )  :  GOTO  enddssort 
P£-PS% 
ids: 

H£-P£:P£-B(5 ,p#) 
IF  B(2,X%)>B(2,P&)  THEN  ids 
B(5  ,X#)-P#:B(5 ,H£)=X# 
enddssort : 
RETURN 
REM 

REM   *************************************************** 
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REM 

REM  Subroutine  SORT  ARRIVAL  TIMES  ON  LEVEL  DEPOT 

REM 

dpsort : 

REM 

IF  C(2,X£)>=C(2,PE#)  THEN 

C  (  5  ,  PE£  )=X£ :  C  (  5  , X%  )-I C^ :  PE#=X# :  GOTO  enddpsor t 
IF  C(2,X#)<C(2,PS#)  THEN_ 

C(5,X£)=PS#:PS£=X&:INCR  C( 5 , PE&  )  : GOTO  enddpsort 
P£=PS# 
idp: 

H#=P£:P£=C(5  ,P#) 
IF  C(2,X#)>C(2,P#)  THEN  idp 
C(5,X£)=P£:C(5,H&)*=X£ 
enddpsort : 
RETURN 
REM 
REM  *************************************************** 


REM 

REM  Subroutine  DETERMINE  TYPE  OF  FAILED  ITEM 

REM 

partno: 

REM 

FOR  P#-l  TO  ITEMNO# 

IF  NSN$=ITEM$(P%)  THEN  ITEM£( P# )-VAL( 11$ ) : EXIT  FOR 
NEXT  P£ 
RETURN 
REM 

REM   *************************************************** 


REM 

REM  Subroutine  CHECK  IF  ITEM  AVAILABLE 

REM 

partcheck: 

REM 

FOR  X#-l  TO  ITEMNO&  : REM  check  which  part 

IF  ITEM$(X#)-D$(1)  THEN  RETURN 
NEXT  X£   • 
RETURN 
REM 
R EM  *************************************************** 
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REM 

REM  Subroutine 

REM 

gdata: 

REM 

SYS£=VAL(S1$) 

RL£=VAL(RL$) 

I*-VAL(I1$) 

RT-VAL(RT$) 

TA2=VAL(TA$) 

TT2=VAL(TT$) 

IF  RL£=2  THEN 

M2-M2+RT 

A(8,N£)=TA2 

GOSUB  partno 

IF  A(4,N%)«0 

IF  A(5,N*)-0 

A(6,N£)-P£:G0T0 
END  IF 
IF  RL£-3  THEN 

B(9,N£)-B(9,N£)+RT 

B(10,N£)=TA 

B(ll ,N£)«TT 

GOSUB  partno 

IF  B(6,N£)=0 

IF  B(7,N#)-0 


READ  INDIVIDUAL  FAILURE  DATA 


THEN 
THEN 
el 


A(4,N#)< 
A(5,N*)< 


=  P#:GOTO 
•P£:GOTO 


el 
el 


THEN 
THEN 


>P£:GOTO    el 


B( 
B( 


6,N#)  = 

7,N#)< 


>P£:GOTO 
■  P^rGOTO 


el 
el 


B(8,N*) 

END    IF 

IF    RL£=4    THEN 

C(9,N#)-C(9,N£)+RT 

C(10,N*)-TA 

C(ll ,N#)-TT 

GOSUB    partno 

IF    C(6,N#)-0    THEN 

IF    C(7,N#)-0    THEN 

C(8,N£)-P£ 
END    IF 
el: 

IF    156-9    THEN   MTTF=VAL(MTTF$ ) 
RETURN 
REM 
REM    *************************************************** 


C(6,N£)-P#:G0T0 
C(7,N£)=P£:G0T0 


el 
el 
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REM 

REM  Subroutine  VARIABLE  INPUT 

REM 

varin: 

REM 

IF  CHOICE^-0  THEN  srf 

CLS: LOCATE  10 , 15 : SENSLIM=0 . 1 

PRINT  "Enter  sensitivity  analysis  bounds"; 

PRINT  "  in  per  cent" 

LOCATE  16,15 

PRINT  "  The  default  value  is  10." 

LOCATE  22,17 

PRINT  "To  accept  default  press  ENTER,"; 

INPUT  "  else  type  value  ",RF 

IF  RF>0  THEN  SENSLIM-RF/ 100 

srf: 

CLS:LOCATE  10,20 

PRINT  "Enter  the  stockout  risk  factor  r" 

LOCATE  12,20 

PRINT  "        (0.0<r<1.0)" 

LOCATE  16,20 

PRINT  "     The  default  value  is  0.9." 

LOCATE  22,15 

PRINT  "To  accept  default  press  ENTER,"; 

INPUT  "  else  type  value ",RF 

IF  RF>0  THEN  R-RF  ELSE  R-0.9 

CLS:LOCATE  10,10 

PRINT  "Enter  ave.  shipping  time"; 

PRINT  "  for  ordered  items  in  days" 

LOCATE  16,10 

PRINT  "  The  default  value  is  5  days." 

LOCATE  22,12 

PRINT  "To  accept  default  press  ENTER,"; 

INPUT  "  else  type  value", RF 

IF  RF>0  THEN  AST-RF  ELSE  AST-5 

RETURN 

REM 

REM  *************************************************** 
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REM 

REM  Subroutine  POISSON  DISTRIB.:  MINIMUM  STOCK  LEVEL 

REM 

poisson : 

REM 

K=0 

LT=LAMBDA*AST 

E-EXP(-LT) 

CUM=E 

WHILE  CUM<R 

INCR  K 

CUM=CUM+(  (LT~K)/K)*E 
WEND 

LITTLES#(X)=K 
RETURN 
REM 
REM  ***************************************************** 


REM 

REM  Subroutine  PRINT  NUMBER  OF  SERVERS 

REM 

sernum: 

REM 

CLS: LOCATE  6,20 

PRINT  "number  of  servers  for  level  Depot   :  " 

PRINT  USING  "###"; S4£ 

LOCATE  8,20 

PRINT  "number  o^f  servers  for  level  DS/GS   :  " 

PRINT  USING  "###"; S3£ 

LOCATE  10,20 

PRINT  "number  of  servers  for  level  Org  Mn  :  " ; 

PRINT  USING  "###"; S2£ 

LOCATE  15, 27: PRINT  "Compute  Queueing  Behavior" 

RETURN 

REM 

R EM  *************************************************** 


* 


297 


REM 

REM  Subroutine  ORDER  PARTS  CONSUMPTION 

REM 

linkparts : 

REM 

C%-COUNT#:INCR  COUNTS 

IF  COUNT£=l  THEN_ 

PI ( COUNTS  )=D1 : P2#( COUNTS )=A : P3#( COUNTS )-FF : GOTO  lp3 
IF  D1>=P1(C#)  THEN_ 

PI  (  COUNTS  )=D1  :  P2#(  COUNTS  )=A  :  P3#( COUNTS  )-FF  :  GOTO  lp3 
lpl: 

IF  D1>=P1(C£-1)  THEN 
lp2: 

H1=P1( C£  )  :H2#=P2#( C% ) :H3#=P3£( C# ) 

P1(C#)-D1:P2#(C#)-A:P3#(C%)-FF 

D1-H1:A-H2#:FF-H3#:INCR  C% 

IF  C£<=COUNT£  THEN  lp2.ELSE  lp3 
ELSE 

DECR  C#:GOTO  lpl 
END  IF 
lp3: 
RETURN 
REM 
REM  *************************************************** 
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